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PREFACE 


The System/360, Disk and Tape Operating 
Systems Report Program Generator (RPG) is 
a problem-oriented language designed to 
provide users with an efficient, easy-to- 
use technique for generating programs that 
can: 


1. Obtain data records from single or 
multiple input files, 

2. Perform calculations on data taken 
from input records or RPG literals, 

3. Write reports, 

4. Use Table Lookup, 

5. Exit to a user's subroutine written in 
a language other than RPG, 

6. Branch within the calculations, and 

7. Sequence check input records. 

RPG uses a set of specification sheets 
on which the user makes entries. The 
forms are simple, and the headings on the 
sheets are largely self-explanatory. 

Although many reports use only one 
input file, RPG can combine data from 
multiple input files to create a report. 

The output may be a single report, or it 
may be several reports created simul¬ 
taneously on different devices. 

In this publication, all references 
(both within text and to other publica¬ 
tions) to Basic Operating System should 
be regarded by the reader as references to 
Disk Operating System (DOS) or Tape 
Operating System (TOS) or both (DOS/TOS) 
as required by the subject being 
discussed. 


Third Edition 

This edition is a reprint of C26-3570-2 and incorporates 
changes released in Technical Newsletter N26-0555, 
dated May 20, 1966. 


As the publications for these systems 
are revised the titles will be changed 
accordingly. 

For information on the Disk and Tape 
Operating Systems that is beyond the pur¬ 
pose of this publication, refer to the 
following publications: 

IBM Basic Operating System/360, Language 

Specifications, Assembler (16K Disk/Tape), 
Form C24-3414 

IBM Basic Operating System/360 Data 
Management Concepts, 16K Tape, Form 
C24-3430, or 
16K Disk, Form C24-3427 
IBM Basic Operating System/360, System 
Control and System Service Programs, 

16K Tape, Form C24-3431, or 
16K Disk, Form C24-3428 

IBM Basic Operating System/360, System 
Generation and Maintenance, 16K Tape, 

Form C24-5015 or 
I6K Disk, Form C24-5033 

IBM Basic Operating System/360, Operating 
Guide, 16K Tape, Form C24-5001 or 
16K Disk, Form C24-5022 

IBM Basic Operating System/360, 

Supervisor and Input/Output Macros, 

16K Tape, Form C24-3432 or 
16K Disk, Form C24-3429 


For titles and abstracts of associated 
publications, see the IBM System/360 
Bibliography, Form A22-6822. 


Significant changes or additions to the specifications contained in this 
publication will be reported in subsequent revisions or Technical News¬ 
letters . 


Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 


A form is provided at the back of this publication for reader's comments. 

If the form has been removed, comments may be addressed to IBM Corporation, 
Programming Publications, Department 452, San Jose, California 95114. 


© International Business Machines Corporation 1966 



CONTENTS 


DISK AND TAPE OPERATING SYSTEMS REPORT 

PROGRAM GENERATOR . 1 

Function of RPG. 1 

Using RPG.. 1 

Machine Features Required ..... 2 

Additional Machine Features 

Supported. 2 

FUNDAMENTALS OF RPG PROGRAMMING .... 3 

Describing a Record and its Fields 

to the System. 3 

Addition and Subtraction . 5 

Detail Printing . 6 

Control Fields . 7 

Total Calculations . 9 

Detail and Total Printing.10 

Group Printing.. 11 

Group Indication.12 

Overflow Printing . 12 

Summary Punching.. . 13 

Testing for Zero, Plus, and Minus 

Balance. 17 

Using Resulting Indicators .... 19 

Comparison of Two Fields ..... 20 

Multiplication and Division.21 

Sequence-Checking . 23 

Correlation of the RPG Specifica¬ 
tions Sheets.25 

Summary.' . . 25 

PROGRAM LOGIC.27 

RPG SPECIFICATION SHEETS . 31 

General Information . 31 

Sterling Routines . 32 

Common Fields.. . 3 2 

INPUT SPECIFICATIONS SHEET . 35 

General Information.35 

Record Identification Entries. ... 36 

Field Description Entries.41 

CALCULATION SPECIFICATIONS SHEET. ... 54 

Specifying When Calculations are 
to be Performed.54 


Specifying the Kind of Calculation . 56 

Testing the Results of Calculation . 68 

OUTPUT-FORMAT SPECIFICATIONS SHEET- - - 73 

General Information . 73 

File Identification and Control. . . 73 

Field Description.. . 78 

LINE COUNTER SPECIFICATIONS SHEET . . 86 


FILE DESCRIPTION SPECIFICATIONS SHEET . 88 

FILE EXTENSION SPECIFICATIONS SHEET . . 97 

USING TABLES AND EXIT ROUTINES IN THE 


OBJECT PROGRAM.101 

Using Tables in the Object Program 101 

Exit to a User's Routine.107 

DISK STORAGE CONCEPTS . 112 

Introduction and Terminology .... 112 

File Organization.113 

File Processing.114 

File Processing in RPG.115 


PROCESSING SINGLE INPUT FILES . 116 

PROCESSING MULTIPLE INPUT FILES .... 124 


JOB SETUP. 135 

RPG Deck Arrangement.. . 135 

Executing RPG - Input Stream . . . 136 

Labeled Files. 138.1 

RPG Output Deck. 139 

Symbolic I/O Device Assignment . . 140 

Standard I/O Assignment. ..... 140 

Output Listing . 140 

Object Program Cancellation. . . . 140 

SAMPLE PROGRAMS ..142 

Sample Program One.142 

Sample Program Two.148 

Sample Program Three . 152 

APPENDIX A. INDICATOR CHART. 152.5 

APPENDIX B. RPG LOGIC FLOW CHARTS. . . 153 

APPENDIX C. STERLING ROUTINES FOR THE 

REPORT PROGRAM GENERATOR . 156 

APPENDIX D. CONVERSION ROUTINE 

OPERATION CODES . 158 

APPENDIX E. SUMMARY OF RPG SPECI¬ 
FICATION FORMS ..159 

APPENDIX F. DIAGNOSTIC NOTES . 166 


APPENDIX G. CONDITIONS THAT AUTOMATI 

CALLY TURN ON HALT INDICATOR HO . . . 174.1 


iii 


INDEX 


• 175 


























































BASIC OPERATING SYSTEM/360 REPORT PROGRAM GENERATOR 


RPG operates under control of the Basic 
Operating System/360. The Basic Operating 
System provides the RPG compiler with input 
and output services. Object programs gen¬ 
erated by the RPG compiler also operate 
under operating-system control and depend 
on it for similar services. 

RPG supports the minimum configuration 
required by the Basic Operating System, 

16K. The Decimal Arithmetic feature is 
required for RPG. 


Compatibility of Basic Operating System/360 
RPG with Model 20, or with Basic Program¬ 
ming Support System/360 RPG Programs 


The RPG source language is upward compati¬ 
ble. The Basic Operating System/360 Report 
Program Generator can compile a Model 20 
source program or a Basic Programming Sup¬ 
port source program that adheres to its 
language specifications. 

The File Description Specifications 
Sheet of the Basic Operating System/360 
RPG may require additional information 
(record length and overflow indicators). 

The control card of the Model 20 or 
Basic Programming Support RPG programs 
must be modified before the object pro¬ 
gram can be generated by the Basic 
Operating System/360 RPG. Source deck 
sequence may have to be altered. 


FUNCTION OF RPG 

When RPG is used, the IBM System/360 
actually performs two separate functions: 

1. program-generating 

2. data processing 

In the first function, program specifi¬ 
cations defined by the user produce ma¬ 
chine-language instructions. Storage areas 
are automatically assigned; constants or 
other reference factors are included; and 
linkages to routines for checking, for 
input/output operations, and for other 
functions are produced. 

In the second function, the machine- 
language instructions (created in the first 
function) are combined with the user input- 
data files, and both are processed through 
the system to produce the desired reports 
or output files. 


.USING RPG 

The preparation of a report by means of 
RPG consists of the general operations 
illustrated in Figure 1 and described 
below: 

1. The programmer must evaluate the report 
requirements to determine the format of 
the input files and the appearance of 
the finished report. 

For example, he must know what fields 
in the input files are to be used, what 



Figure 1. Producing Reports Using the 
RPG Program 
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kind of calculations are to take place, 
the location of the data in the output 
records, and the number and the kind of 
totals that must be accumulated. More 
specific information regarding the 
evaluation of report requirements is 
described in Problem Definition. 

2. After the programmer has evaluated the 
requirements of the report, he provides 
the same information to the RPG program. 

He must describe his input (record 
layout, fields used, etc.) by making 
entries on an Input Specifications 
sheet. 

He must state what processing is to 
be done (add, subtract, multiply) by 
entries on a Calculation Specifications 
sheet. 

He must state how the finished report 
is to look (printing position, carriage 
control, etc.) by making entries in the 
Output-Format Specifications sheet. 

He must describe all files used by 
the object program (input files, out¬ 
put files, table files, etc.) by making 
entries on the File Description and 
File Extension Specifications sheets. 

3. After the specifications have been 
written on the appropriate forms, cards 
are keypunched with the data from the 
forms. 

4. These punched cards (called a source 
deck ) are combined with the processor 
control card and the Basic Operating 
System Job Control Statements. The 
source deck and the control cards are 
supplied to an input device and are proc¬ 
essed under control of the Basic Opera¬ 
ting System. At the end of this process¬ 
ing run (known as a compilation run ), a 
program capable of preparing the report 
specified by the programmer has been 
produced. This program (known as an 
object program) contains all of the 
computer instructions and linkages to 
the control system necessary to prepare 
the desired report. 

5. The input files can then be read into 
the system, and processing of the pro¬ 
gram will begin. This is known as the 
object run . 

At the end of the object run, the report 
has been prepared and any other functions, 
such as file updating, are completed. 

Through facilities provided by the Basic 
Operating System, the object program can 
be retained for later runs without recom¬ 
pilation. 

MACHINE FEATURES REQUIRED 
Source Program Compilation 


1. 16,384 main storage bytes 

2. One of the following for input: 

IBM 2540 Card Read-Punch 


IBM 2501 Card Reader 

IBM 2520 Card Read-Punch 

IBM 1442 Card Read-Punch 

IBM 2400 Series Magnetic Tape Unit 

3. One of the following for output of ob¬ 
ject program: 

IBM 2540 Card Read-Punch 
IBM 2520 Card Read-Punch 
IBM 1442 Card Read-Punch 
IBM 2400 Series Magnetic Tape Unit 
IBM 2311 Disk Storage Drive (Disk 
system only) 

4. One of the following for system 
residence: 

IBM 2400 Series Magnetic Tape Unit, 
9-Track (Tape System) 

IBM 2311 Disk Storage Drive (Disk 
System) 

5. One of the following for system utility 
files: 

IBM 2400 Series Magnetic Tape Unit 
(Three) 

Data Convert Feature (Required 
only if 7-track tape is used) 

IBM 2311 Disk Storage Drive with 
three files (Disk System) 

6. Standard and Decimal Instruction Sets 

7. The minimum machine configuration re¬ 
quired by Basic Operating System (16K) 

Object Program Execution 

1. 16,384 main storage bytes 

2. I/O units as requested by the specifi¬ 
cations 

3. Standard and Decimal Instruction Sets 

4. Systems Residence only - IBM 2311 Disk 
Storage Drive (Disk System) 

IBM 2400 Series Magnetic Tape Unit, 
9-Track (Magnetic Tape System) 

5. The minimum machine configuration re¬ 
quired by Basic Operating System (16K) 


ADDITIONAL MACHINE FEATURES SUPPORTED 


Source Program Compilation 

1. 32,768; 65,536; 131,072; 262,144; or 
524,288 main storage bytes 

2. One of the following for listings: 

IBM 1443 Printer 

IBM 1403 Printer 

IBM 1404 Printer (continuous forms 
operation only) 

one IBM 2400 Series Magnetic Tape 
Unit (9 track) Tape System 
Two additional 2311 Disk Storage 
Drives for utility files (Disk 
System) 


Object Program Execution 

1. 32,768; 65,536; 131,072; 262,144 or 
524,288 main storage bytes 
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FUNDAMENTALS OF RPG PROGRAMMING 


This section introduces some of the basic 
RPG functions. These functions are con¬ 
sidered basic because they are probably 
used in the most typical reports produced 
by RPG and because they depend on a single 
sequential input file only. They are also 
related to the functions commonly performed 
with conventional punched-card equipment. 

Although RPG programs can process files 
contained on magnetic tape or direct-access 
storage devices, only card-input files are 
used for the introduction to RPG. Program¬ 
mers familiar with the basic concepts of 
RPG may omit this section and concentrate 
on the detailed specification descriptions 
contained in the section of the manual 
RPG Specification Sheets. 

Because of the numerous fields on the 
six specifications sheets, it may appear 
that writing RPG specifications is a diffi¬ 
cult task. However, few programs use all 
the specifications, and some may require 
entries on only one or two lines of the 
sheets. 

At the end of the description of basic 
RPG functions, a simple file-to-file list¬ 
ing application is used to illustrate how 
the specifications sheets are related. 

Functions Described 

Fifteen of the most basic RPG functions 
are described in this section: 

1. Describing a record and its fields to 
the system 

2. Adding and subtracting (cross-footing) 

3. Detail printing 

4. Establishing control fields 

5. Total calculations 


6. Detail and total printing 

7. Group printing 

8. Group indication 

9. Overflow printing 

10. Summary Punching 

11. Testing for zero, plus and minus 
balance 

12. Using field indicators 

13. Comparing 

14. Multiplying and dividing 

15. Sequence checking 


DESCRIBING A RECORD AND ITS FIELDS TO THE 
SYSTEM 

Entries on the Input Specifications sheet 
describe the data records and the fields 
to be read into the system. 

Problem 


A detail labor file contains card records 
as shown in Figure 2. Three fields (A, B, 
and C) are to be read from each card into 
main storage. Field A is contained in 
columns 46-50; Field B is contained in 
columns 56-60; and Field C is contained 
in columns 66-70 of each record. The file 
that contains the records and the fields 
within each record are described on the 
Input Specification sheet. 

Each card that contains fields A, B, and 
C is identified by two distinct attributes. 
They must contain a digit 5 in column 35 
and no 11-zone in column 80. When these 
two conditions exist in the card record, 
the record is valid (that is, it contains 
fields A, B, and C). 
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Figure 2. Input Cards for Detail Labor File 
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Specifications 


Figure 3 shows the input specifications 
required. The numbers in the following 
list refer to items circled in Figure 3. 

1. Each file of cards must be given a 
name. In this example the input deck 
of cards represents a detail labor 
file. A file name can be used to 
describe only one file. 

2. If several types of cards exist in a 
file, each card must be identified by 
its particular card code. In this exam¬ 
ple, each card read by the system must 
contain a 5-punch in column 35 and no 
11-zone (minus) punch in column 80. 

These identifying codes are placed in 
the fields called Record Identification 
Codes (columns 21-41 of the form). 

These fields provide for three identi¬ 
fying codes; however, more codes can 

be indicated, as illustrated later in 
the manual. 

In this example the card codes are 
specified by writing a 5 in Character 
and a 35 in Position for the first code; 
and by writing an 80 in Position and a 
minus in Character , and an N in Not for 
the second code. The field on the form 
called C/Z/D indicates how the card 
column containing the card code is to 
be compared; D = digit portion only, 

Z = zone portion only, or C = all por¬ 
tions of the card column. 


After all the identification codes 
are established, the programmer assigns 
a two-digit number (from 01 to 99) to 
the card type identified. This code, 
known as a Resulting Indicator (columns 
19-20 of the form), is used to refer to 
this specific card type on other speci¬ 
fications sheets. Using this code 
reduces the number of entries required 
on other specifications forms, as will 
be seen later. 

3. If the input card is to be selected 
into a stacker (other than the one into 
which it would normally be selected), 
the stacker number is written in Stacker 
Select (column 42) . 

4. Each field of the card to be read must 
be defined as shown on the lines follow¬ 
ing the record-identification line. The 
specifications shown in this example 
locate the data from the input record 
and place it in fields A, B and C (FLDA, 
FLDB, and FLDC) in three separate loca¬ 
tions in core storage. 

Once the card columns of the field 
have been specified and the appropriate 
field name has been defined for the 
field, other references to this field 
are made by using its field name rather 
than writing down the specific card 
columns each time. 

Although the input illustrated in 
Figure 3 is simplified, the entries 
shown will cause the contents of fields 
A, B, and C from the card to be read in¬ 
to the system during the processing of 
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the object program. Calculations to be 
made from the input data are written 
on the Calculation Specifications sheet. 

ADDITION AND SUBTRACTION 

Problem 

In this problem, fields A, B, and C from 
the previous example are used to Calculate 
a new field (Field D). The calculation 
A + B - C = D is to be performed. 

Specifications 

Figure 4 shows the required entries using 
the fields from the previous example. The 
form required for this problem is the 
Calculation Specifications sheet. 

The first line of the form tells the 
object program to add the contents of FLDB 
to the contents of FLDA and place the 
result in FLDD. 

1. The 14 in Indicators defines the card 
type for which the calculations are to 
be performed as assigned by the Input 
Specifications sheet. 

2. The card columns for FLDA and FLDB were 
defined by entries on the input forms 
and need not be specified again. 


3. The result field FLDD is defined for 
the program by merely writing the name 
FLDD in Result Field (columns 43-48) 
and indicating in Field Length (columns 
49-51) the number of positions that 
must be set aside for this field in the 
object program. Just as in the case of 
FLDA and FLDB, which were defined on 
the input form, the name FLDD can now 
be used in other calculation operations 
or used in defining output specifica¬ 
tions. 

NOTE: The result of A + B is not placed 

back into FLDA. To do this would des¬ 
troy the original contents of FLDA. In 
this example it is necessary to save the 
original value of FLDA so that it.can be 
printed on an output report. 

The second line in Figure 4 causes the 
object program to subtract the contents of 
FLDC from the result just previously ob¬ 
tained in FLDD, and to store the new re¬ 
sult back into FLDD. 

Decimal Symbol Location 

In this example there were no decimal posi¬ 
tions in any of the three fields. In 
operations involving numbers containing 
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decimal positions, the number of decimal 
positions in each of the fields is fre¬ 
quently not the same. When the number of 
decimal positions is not the same in both 
factors in an arithmetic operation, shift¬ 
ing the factors to align the decimal point 
is usually required. 

RPG automatically shifts the factors. 

The programmer must indicate the number of 
decimal positions contained in each factor 
used in calculations, and the number of 
decimal positions required in the result. 

If a field is to have arithmetic operations 
performed upon it, the decimal positions 
must be specified. A zero is coded for 
no decimal positions (see Figure 4). 

Assume that the fields in Figure 3 have 
decimal positions as indicated under Deci¬ 
mal Positions (Column 52) in the following 
example: 



A set of values for these fields might 
appear to the program as follows: 


FIELD 


DECIMAL CONTAINED 

POSITION IN CARDS 


ACTUAL 

VALUE 


A 0 


00126 126. 


B 2 


01123 11.23 


C 


3 04264 4.264 


The programmer must indicate the number of 
decimal positions required in the result. 

The calculation A + B - C = D, would 
result in the values being shifted like 
this: 


126.000 = A 
+11.230 = B 
137.230 
- 4.264 = C 
132.966 = D 

(Result field has three decimal positions). 

The result 132.966 is stored as the 
value of the field called D. Entering the 
decimal positions on the input sheet and 
the calculation sheet enables the factors 
to be shifted automatically. 


DETAIL PRINTING 

Detail printing is the printing of infor¬ 
mation obtained from each record as it is 
read. 

Problem 


This problem illustrates how input fields 
A, B, and C, and the calculated result, 
field D, can be specified for listing. 

Specifications 


Figure 5 shows the output specifications 
required. The numbers in the following 
list refer to items circled in Figure 5. 

1. The output listing must be assigned its 
own specific file name. In this exam¬ 
ple it has been called DAILYRPT. 

The D in Type H/D/T indicates that 
the line being printed is a detail line. 
That is, it contains information from 
the record just read. (The other possi¬ 
ble entries, H and T, indicating heading 
lines and total lines, are described 
later.) 

The 2 in Space After provides a 
double-spaced listing. (There is one 
blank line after each printed line.) 

2. The 14 in Output Indicators identifies 
the input record type present when 
detail printing occurs. 

3. Each field to be printed must be speci¬ 
fied under the heading Field Name . The 
Z in Zero Suppress means that zeros to 
the left of significant digits are not 
printed. (For example, the value 
stored in FLDA (00126) is printed as 
126.) 

The printing positions for data to 
be printed on the output report are 
specified in End Position In Output 
Record (columns 40-43). The programmer 
has to indicate only the last printing 
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position of each field (low-order or 
rightmost position). The length of 
each field has already been established 
for the program as part of the input 
specification or established in the 
Result Field of the calculations 
specifications. 

When preparing a simple listing such 
as the one in this example, the program¬ 
mer would probably select printing pos¬ 
itions of the output unit based upon the 
number of positions in each field plus 
a number of positions as spaces between 
fields. 

More elaborate reports are laid out 
on a printer form in advance of the pro¬ 
gram writing function. Usually this 
indicates both the location on the form 
where data is to be printed and the 
source of the data (the card columns of 
the input data or the names of data 
fields developed in the program). This 
is normally a function of job defini¬ 
tion, a subject that is discussed later 


under Problem Definition. 

Figures 3, 4 and 5 illustrate how to 

read data into the system, how calcu¬ 
lations can be performed upon the data, 
and how the original data and the data 
developed in the program can be printed. 
The examples so far have shown the items 
necessary to prepare a report. A sig¬ 
nificant item not yet described is how 
to specify a control field. 


CONTROL FIELDS 

A "control field" is a field containg 
information to be compared from record 
to record. A control break occurs when 
the information in the control field 
changes. A control level establishes the 
relative importance of the control fields. 

Problem 

This example shows how to specify three 
levels of control. 
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Specifications 

Figure 6 shows the input data from Figure 3 
with the addition of the appropriate con¬ 
trol data and employee name (the items in¬ 
side the circle). In this example there 
are three levels of totals: the lowest 
level is employee number (EMPNO) , the next 
is department (DEPT), and the highest level 
is division (DIVSON). These levels are 
designated LI, L2, and L3, respectively. 
(Because as many as nine levels of totals 
are possible in RPG, the common terms of 
minor , intermediate , and maj or totals are 
inadequate.) 

To designate a control field and to 
establish a level of control, enter the 
card columns of the field in Field Loca ¬ 
tion , enter an appropriate name in Field 
Name , and enter the correct control level 
(LI, L2, . . . L9) in Control Level . 

In the example (Figures 2 and .6) the 
sequence of the control fields (left to 
right) in the card is the same as the 
sequence of the control levels. The con¬ 
trol fields, however, could have been in 
any location on the card, and the specifi¬ 
cations for them could have been in any 
sequence on the form as illustrated in 
Figure 7. 



Figure 7. Example of Control Field Sequence 
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The reading of the employee-name field 
(fifth line of the sheet in Figure 6) is 
also included as part of this example, but 
it is not related to controls. It is shown 
here to indicate another aspect of the 
decimal-positions column of the Input 
Specifications sheet. When a numeric field 
is specified in Field Location , any digit 
(0 to 9) placed in Decimal Positions causes 
zone punches in all positions of the field 
(except the units position) to be removed. 

Therefore, when an alphabetic field is 
specified. Decimal Positions should be left 
blank to permit the zone punches of the 
alphabetic field to be read into the sys¬ 
tem. 

TOTAL CALCULATIONS 

Total calculations are performed after a 
specified control break has occurred. 

When a control break occurs, special 
operations are normally performed before 
processing the record that caused the con¬ 
trol break. These operations are called 
"total operations". 


Problem 

This example illustrates how totals can be 
accumulated at each control level. 

Specifications 

Figure 8 contains the data shown in Figure 
4. The additional information for this 
example is circled. During processing of 
the object program, lines 1 and 2 cause 
the operation A + B - C = D. The third 
line adds the result, contained in FLDD, 
from each detail card to a field called 

TOTE. Therefore, TOTE is the accumulated 
amount for each employee group. The first 
three specification lines are performed 

in the object program each time a detail 
card is read (see Figure 8, Indicator 14) . 

When the level-1 (LI) control break 
occurs (a card from the next employee 
group has been sensed), specification¬ 
line 4 adds the total of TOTE accumulated 
from each detail card into a field called 

TOTF. TOTF is used to accumulate the total 
for each employee group for each department 
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When the level-2 control break occurs, 
TOTF is added into TOTG. 

When the level-3 control break occurs, 
TOTG (which represents the accumulated 
amounts for each division) is added into 
FINTOT. 

Accumulating totals at each control- 
break level is normally done when the 
corresponding totals are printed on an 
output report. 

NOTE: In System/360 RPG-as in IBM punched 

card equipment-a control break at one 
level forces control breaks for all lower 
levels. 

DETAIL AND TOTAL PRINTING 
Problem 

This example shows the specifications 
necessary to print the three controlling 
fields, the name, the accumulated amount 
in field D, the three accumulated totals, 
and the final total at the end of the 
object-program report. 


Specifications 

Figure 9 illustrates the specifications 
required for the report shown in Figure 
10. The following numbers refer to the 
items circled in Figure 9: 

1. This information is similar to the 
specifications in the previous example 
in Figure 5. 

2. The data fields DIVSON, DEPT, EMPNO, 
NAME/ and FLDD are specified for 
printing. 

3. The specifications to print the total 
for the first control level shown on 
lines 7 and 8 are: 

a. The T in H/D/T (column 15) indicates 
that the line is a total line. A 
total line is an operation caused by 
a control break. The input record 
that causes the control break cannot 
contribute data to the accumulated 
totals or to the total line. Totals 
accumulated before a control break 
are printed. 
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b. A 3 in. Space After (column 18) pro¬ 
vides two blank lines after each 
printed line to make the report 
easier to read. 

c. The LI in Output Indicators (columns 
24-25) indicates that the line is to 
be printed only on a level-1 control 
break. 

d. The field to be printed (TOTE) is 
indicated under Field Name (columns 
32-37). 

e. The Z in Zero Suppress (column 38) 
indicates that zeros to the left of 


significant digits are not to be 
printed. 

f. The B in Blank After (column 39) 
causes the core-storage positions 
containing field TOTE to be set to 
zeros after the total is printed. 

This is done so the total for one 
group is not added to the total of 
the previous group. 

The specifications to print the 
second and third control levels are 
essentially the same as those for 
the first level. 

4. The specifications for printing the 
final total contain the code LR (Last 
Record) in Output Indicators (columns 
24-25). The indicator LR is turned on 
automatically by the program when the 
last card of a file has been sensed. 

This indicator is used to cause the 
final total to be printed. 

GROUP PRINTING 

In group-printing operations, only one line 
is printed for each group of detail cards. 
This line usually contains the Control 
fields and the totals of the quantity 
fields. 

An example of a group-printed report is 
shown in Figure 11. 

The detail-printed report specifications 
in Figure 9 could be altered to provide a 
group-printed report as illustrated by the 
specifications in Figure 12. 

The differences between Figures 9 and 
12 that provide for the two types of re¬ 
ports are: 

1. The detail line specified in Figure 9 
(line 01) has been changed to a total 
line conditioned on an Ll break (Figure 
12, line 01) . 

2. The total line in Figure 9 (line 07) 
has been combined with the first total 
line 01 of Figure 12. 

3. The spacing on lines 09 and 11 of 
Figure 9 have been changed from 3 spaces 
to 1 space after in Figure 12. 
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Figure 11. Group-Printed Report 
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GROUP INDICATION 

In group-indication operations each detail 
card is processed; however, only the con¬ 
trol fields that identify the specific 
detail card are printed. An example of a 
group-indication report is illustrated in 
Figure 13. In this example the employee 
name and number are printed for each con¬ 
trol change. The fields division and 
department are printed only when there is 
a control change for the division and 
department fields, respectively. 

Figure 14 illustrates how the detail- 
printed report specifications in Fig¬ 
ure 12 could be altered to specify a 
group-indication report. 

OVERFLOW PRINTING 

Overflow printing, another function used 
in preparing reports, can be performed in 
RPG. Overflow is the sensing of channel 
12 in the printer carriage control tape. 

Problem 

This example shows the additional specifi¬ 
cations necessary to print eight column 
headings at the top of each printed form. 

A heading-line is a line that contains 
constants or information from an input 
record, or it may be a constant defined on 
the Output-Format Specification sheet. 



Figure 15 illustrates the output specifi¬ 
cations required for this operation. The 
numbers in the following list refer to the 
circled items in Figure 15. The Filename 
(columns 7-14) of DAILYRPT is the same; 
adding overflow headings does not change 
it. 


1. On the first line of the form, the H in 
H/D/T (column 15) indicates that the 
line to be printed is the heading line. 

The 2 in Space After (column 18) pro¬ 
vides a blank line after each printed 
line. 

The 01 in Skip Before (columns 19-20) 
causes the form to skip to channel 01 
in the carriage control tape. This 



Figure 13. Example of a Group-Indicated 
Report 
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positions the form for printing of the 
overflow heading line. 

The OF in Output Indicators (columns 
24-25) causes the heading line to be 
printed each time there is a form over¬ 
flow on the printer. 

On the second line of the form, the 
letters OR indicate a second condition 
can cause the heading line to print. 

The second condition, indicated by IP 
(first page) in Output Indicators , 
causes the heading line to be printed 
on the first page. This condition is 
necessary to print the heading on the 
first page of the report because the 
overflow condition does not occur until 
after the first page of the report has 
been printed. 

2. The entries on lines 3-10 of Figure 15 
specify the actual information or con¬ 
stants to be printed on the report. 

The actual information is contained within 
apostrophe symbols. 

SUMMARY PUNCHING 


Problem 


Figure 14. Specifying a Group-Indicated 
Report 


Punch a summary total of FLDD for each 
department together with the appropriate 
department and division numbers. 
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Specifications 


A blank card must be merged behind each 
department group before the processing of 
the object program is begun. Therefore 
the input file is a combined file; that is, 
a file containing cards read into the sys¬ 
tem and cards used for punching. The blank 
card is specified on the Input Specifica¬ 
tions form as illustrated in Figure 16, 
line 09. 

All other records in the file must con¬ 
tain punches in the card column used in 
the record identification specification 
for the blank card. 

Figure 17 illustrates the Calculation 
Specifications for the summary punching 
operation. 

Line 04 is processed when the blank card 
is read. It causes accumulation of the 
level-2 total for the summary card. This 
specification is necessary when the summary 
card is merged behind control groups rather 
than punched from a second file of blank 
cards. This specification is required 
because the level-2 control break does not 
occur until the first card of the next con¬ 
trol group is read — and this does not 
occur until after the blank card is read. 


NOTE: The control level L0 has been 

entered to identify a total calculation. 

The summary punching of accumulated 
values is illustrated on the output speci¬ 
fication sheet in Figure 18. The specifi¬ 
cations required for this function are 
circled. 

The cards to be punched will become a 
new output file which is given the name of 
the combined file DETLABOR. This name is 
specified in File Name for the specifica¬ 
tion line 12. 

The T in Type (H/D/T) indicates the 
operation is to be performed at total time. 

The 2 in Stacker Select indicates that 
the summary cards are to be selected into 
stacker number 2. 

Resulting Indicator 16 in Output Indi¬ 
cators indicates that the operation is to 
occur at the time the blank card is read 
in. 

The first field specified for punching 
is column 35 which will be punched with an 
8 to identify the card as a summary card. 
The remaining three fields are punched by 
specifying the name of the field in Field 
Name and then by specifying the last column 
to be punched in End Position In Output 
Record . The format of the summary card is 
shown in Figure 19. 
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Figure 16. Summary Punching Example, Input Specifications 
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Figure 18. Summary Runching Example, Output Specifications 
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Figure 19. Summary Punching Example, Summary Card Format 


TESTING FOR ZERO, PLUS, AND MINUS BALANCE 

Specifications are executed in the object 
program in the same sequence in which they 
are written on the specification form 
unless a different sequence has been 
specified. 

If specifications had to be followed 
sequentially in a fixed pattern, a program 
would follow a single path of operation 
without any possibility of dealing with 
predefined exceptions to the procedure 
and without the ability to choose a pre¬ 
defined alternative to the procedure based 
upon conditions encountered during the pro¬ 
cessing of the program. 

For example, assume that a program has 
been written containing ten specifications 
that cause a number of operations to be 
performed upon a series of quantities. If 
the first five specifications develop 
meaningless results when processed with 
quantities of zero, the processing time 
of the object program can be reduced if 
the first five specifications are bypassed 
whenever the quantity to be processed is 
zero. 

A specification in the RPG program can 
be used to evaluate a quantity and, depend¬ 
ing upon the value of that quantity, direct 
the program to some other specification. 

Input Specifications 

Three types of tests can be made on the 
Input Specifications sheet: 

1. Testing an input field to determine if 

it contains a plus value. 


2. Testing an input field to determine if 
it contains a minus value. 

3. Testing an input field to determine if 
it is blank or is punched with zeros. 

Calculation Specifications 

Three types of tests can be made on the 
Calculation Specifications sheet: tests 
to determine whether the result of a 
calculation is plus, minus, or zero or 
blank. 

The program also can compare two fields 
and can test the result to determine if 
the contents of one field is greater than, 
smaller than, or equal to that of the other 
field. 

Figures 20 and 21 illustrate a test for 
a zero balance,•and Figure 22 shows the 
specifications for a test for a minus 
balance. 

Figure 20 illustrates a typical test of 
the contents of an input field. If FLDA 
(line 6) contains zeros, it is unnecessary 
to perform some of the operations entered 
on the Calculation Specifications sheet. 

To make this test, the programmer places 
a number from 01 to 99 in Field Indicators : 
Zero or Blank (columns 69-70). In this 
example the number is 18. If a card read 
into the system contains zeros in columns 
46-50 (FLDA), indicator 18 is turned on. 

"Turning on" an indicator means a 
special condition has occurred, and the 
program must consider this condition during 
the processing of calculation specifica¬ 
tions and/or output specifications. This 
indicator condition is no different from 


17 




Figure 20. Specifying a Test for a Zero Balance 
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having a resulting indicator turned on by a 
specific record identification code from 
an input card. 

For example, the entries circled in 
Figure 21 are the additional specifica¬ 
tions that bypass the calculation upon 
detail cards if the value in FLDA is zero 
or blank. 

The specifications 14N18 in Indicators 
(columns 10-14) mean that the calculation 
will be performed if indicator 14 is on 
and indicator 18 is off. (The N in N18 
stands for Not .) As now written on the 
Calculation Specifications sheet in Figure 
21 the detail calculations are not per¬ 
formed if the value of FLDA from the input 
card is zero (Figure 20) . 

The same indicator specification, N18, 
could also be used on the Output-Format 
Specifications sheet to prevent the print¬ 
ing of detail cards when FLDA is zero (if 
that was a requirement of the program). 

USING RESULTING INDICATORS 

Problem 

The calculation specifications in this 
example illustrate the use of a resulting 
indicator to test for a minus balance. 

The result of the test can be used to by¬ 
pass some specifications and to process 
other specifications only when the condi¬ 
tion tested for is present. 


Specifications 

The specifications for this example are 
shown in Figure 22. The program logic for 
this example is shown in Figure 23. 

Line 1 specifies that FLDB is to be 
added to FLDA and that the result is to be 
placed in FLDD. Line 2 specifies that 
FLDC is to be subtracted from FLDD, that 
the result is to be placed in FLDD and 
that FLDD is to be tested to determine if 
the result is minus. In this example it 
is assumed that if a minus balance occurs, 
the calculation has no meaning. There¬ 
fore, if the result is minus, two things 
must be accomplished: 

1. The result must not be added into field 
TOTE. 

2. The contents of field FLDD must be reset 
to zeros. (This step might be required 
if FLDD were used in a subsequent step 
and the minus balance remaining would 
give incorrect results.) 

This is accomplished on the specifi¬ 
cation sheet (Figure 22) by placing an 
indicator code (19) in Resulting Indica¬ 
tors : Minus on the specification-line 2. 
Indicator 19 will be turned on for a minus 
condition. 

The function of adding TOTE to FLDD is 
specified on line 3, It is accomplished 
only if there is a no-minus condition re- 
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Figure 22. Testing for a Minus Condition 
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Figure 23. Testing Indicators to Govern 
Processing 


suiting from the test on line 2. The 
specifications on line 4 cause FLDD to be 
reset to zeros only on a minus condition. 

The 0 in Factor 2 on line 4 is known 
as a literal and is used to set FLDD to 
zeros. (A literal is the actual value to 
be used in a calculation rather than the 
name of the location of the data to be 
used.) The remaining specifications on 
the form in Figure 22 are the same as 
those from previous examples. 

By using Indicator 19, it is possible 
to suppress detail-card printing when the 
calculation D - C results in a minus 
balance. 

COMPARISON OF TWO FIELDS 


The calculation specifications in this 
example illustrate the ability to compare 
two fields and govern processing according 
to the result of the comparison. The com¬ 
parison may be tested for a high, low, or 
equal condition. The result of the test 
can then be used to bypass some specifica¬ 
tions or to process other specifications 
only when a particular condition is present. 


Specifications 


The calculation specifications for this 
example are shown in Figure 24. The pro¬ 
gram logic for the example is shown in 
Figure 25. 
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Line 1 


Line 3 


Indicator 18 
Is Not On. 



Line 2 

Indicator 18 is On. 


Figure 25. Testing a Comparison 


Line 1 specifies that FLDA is compared 
to FLDB . If the two fields are equal. 
Indicator 18 is turned on, and FLDA is 
moved to HOLD (line 2). If the two fields 
are not equal (line 3) , FLDB is subtracted 
from FLDA and the result is placed in 
SAVE. 

A literal may also be used in a com¬ 
parison specification. In the lower half 
of Figure 24, the contents of the input 
field, DATE, are compared against 02-14-64, 
and Indicator 19 is turned on if. they are 
equal. 


MULTIPLICATION AND DIVISION 

Multiply and divide operations are easily 
accomplished with RPG. Moreover, two 
problems associated with these functions 
(decimal-point alignment and half-adjust¬ 
ing) are easily specified. 

Problem 

This example illustrates an inventory card 
(Figure 26) that must have the quantity 
multiplied by the price to develop a total 
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Figure 26. Inventory Card 


21 







cost on a weekly basis. The price of the 
part is also updated each week so that 
the price for the following week reflects 
the average fabrication costs and scrap 
losses on a year-to-date basis. 

Specifications 


The specifications to accomplish these 
functions are shown in Figures 27 and 28. 
Figure 27 shows the input specifications 
for all five fields. The programmer must 
be certain of the exact size of each field 
and the number of decimal places within 
each field. The fields in this example 
are: 


Part Number 

Price 
Quantity 
Y/D Cost 
Y/D Usage 


xxxxx 

xx.xxx 
xxxx. 

XXXXXX.XX 

xxxxxx. 


No decimal positions 
(alphameric) 
3-decimal position 
O-decimal position 
2-decimal position 
O-decimal position 


specified by the H in Half Adjust (column 
53) . The following is an example of the 
arithmetic of this operation, using actual 
values: 

Price 1.213 

Quantity X 216 

7278 

1213 

2426 

262.008 

The result field was specified for two 
decimal positions; therefore, the half¬ 
adjustment is made to the digit 8 in the 
units position of the field. Half-adjust¬ 
ment is always made to the position to the 
right of the last position retained as 
part of the result, as follows: 

262.008 

+ 5 half-adjust 

262.013 


As shown in Figure 27, the decimal posi¬ 
tions of each field are entered under 
Decimal Positions on the Input Specifica¬ 
tions sheet. 

The calculation specifications for this 
example are shown in Figure 28. Price 
is multiplied by quantity and the result 
is placed in a field called COST. The 
field length of COST is specified as 9. 

The result field is to have two decimal 
positions and to be half-adjusted as 


The result, 262.01, is stored as the 
contents of COST. The position that was 
half-adjusted is dropped. 

The second line of the Calculation 
Specifications sheet provides the specifi¬ 
cations for dividing year-to-date costs 
by year-to-date usage. The result is 
placed in a field called PRICE. The field 
length of PRICE is specified as 5, with 
three decimal positions. The result is to 
be half-adjusted, as specified by the H 
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Figure 27. Input Specifications 
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Figure 28. Calculation Specifications 


in Half Adjust . An example of the arith¬ 
metic of this operation, using actual 
values, follows. Year-to-date cost 
divided by usage equals price. 


(Y/D 

usage) 


1.3419 
1739.23xx 


(price) 
(Y/D cost) 


The result field was specified for 
three decimal places. Therefore, the half¬ 
adjustment is made to the digit 9 in the 
units position. This is the position to 
the right of the last position retained 
as part of the result, as follows: 

1.3419 

+_5 half-adjust 

1.3424 

The result 1.342 is stored as the con-, 
tents of PRICE. The position that was 
half-adjusted is dropped. 

SEQUENCE-CHECKING 

Two types of sequence-checking functions 
can be performed with RPG: 

1. Checking the sequence of different 
record-types within a control group. 

2. Checking the sequence of control groups. 
(See the section Using the Matching 
Fields Specification for Seguence- 
Checking.) 


Sequence-Checking of Different Record 
Types within a Control Group 

The application consists of updating an 
inventory file, which, in this case, con¬ 
tains from one to four of the following 
types for each inventory part number: 


CARD 

Balance-Forward 

Issue 

Receipt 

Adj ustment 


CODE 

5 in col. 78 
3 in col. 78 
2 in col. 78 
8 in col. 78 


Figure 29 illustrates the specifications 
required to check the sequence of a group 
of four card-types. The numbers on the 
form refer to the following numbers. 

1. The record-identification codes for the 
four cards are specified in the same 
manner as in previous examples. The C 
in C/Z/D indicates that the entire 
character punched in the card is ex¬ 
amined to establish the record-indenti- 
fication code. 

In the specifications for the last 
card-type (specification-line 13 on the 
form), a D is written in C/Z/D because 
there is a possibility that some of 
these card-types may have a zone punch. 
The D specifies that only the digit 
punches in the card are examined to 
identify the card-type. Thus, zone 
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Figure 29. Input Specifications 


punches that could result in unequal 
comparisons are ignored. 

2. The sequence established for the file 
is determined by the sequence in which 
the specifications for each card-type 
are written on the form and by the 
numbers placed in Sequence . In this 
example, the digits 01, 02, 03, and 04 
are used. The numbers assigned must 
begin with 01 in each file and must be 
consecutive in ascending order. 

Alphabetic characters under Sequence 
in preceding examples indicate that no 
sequence-checking is to take place. 
Alphabetic specifications must always 
be written before numeric specifica¬ 
tions. 

These specifications are all that 
are required to cause the object program 
to perform a sequence-check of the 
various record-types. If a sequence- 
check error is detected, a special indi¬ 
cator can be tested in the program in 
order to determine its status. 


Two additional specifications. 
Number and Option, are used in these 
types of applications. 


3. If a numeric specification is provided 
in Sequence , a specification must be 
provided in Number . 

On the first specification line, the 
number 1 in Number indicates that one 
record of that type must be present in 
each group. In this example only one 
balance—forward card for each inventory 
part number must be present. If there 
is no balance-forward card, the pro¬ 
gram recognizes an error in the input 
file. 

The letter N in Number of the speci¬ 
fications for the other record-types 
means that multiple card-types for each 
part number may be present. In this 
example, multiple cards for issues, 
receipts, and adjustments may be 
present. 
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The letter O in Option in the speci¬ 
fications means that the records are 
optional. That is, a record may or 
may not be present. 

If the letter 0 is not specified it 
means that the particular record must 
be present. This requirement applies 
only if Sequence has been specified as 
numeric. 

CORRELATION OF THE RPG SPECIFICATIONS 
SHEETS 

Figure 30 shows a file-to-file sample 
program. (This type of report is often 
called an 80/80 listing.) It illustrates 
the relationships of the RPG specifica¬ 
tions sheets. 

Assume the contents of an input file 
are to be transferred to another file. In 
this example the input file is a card file, 
and the contents of the cards are to be 
printed. Three specifications sheets are 
required for this program: File Descrip¬ 
tion, Input, and Output-Format Specifi¬ 
cations . 

File Description Specifications Sheet 

The two files are described on this sheet. 
The card-input file is assigned the name 
INPUT, and the printed output file is 
named OUTPUT. Page and line sequence 
numbers are entered in columns 1-5. An F 
in column 6 indicates that each entry is 
a File Description Entry. The file names 
are entered in columns 7-14 (Filename) . 
Column 15 contains an I or an O to indicate 
whether the file has an input or an output 
function. 

Column 16 of the input file of the File 
Description Specifications Sheet contains a 
P because the file described is the pri¬ 
mary input file for the job; the E in 
column 17 indicates that the end-of-file 
condition for this file occurs when this 
file is depleted. 

Column 19 contains an F and a V to 
indicate that the file formats are fixed- 
length and variable-length respectively. 

Block length (columns 20-23) is 80 for 
the input file because each card is a block 
of data. Record length (columns 24-27) is 
also 80 for the input file because each 
card is an unblocked record. For the out¬ 
put file, the block length and the record 
length is 132, which is the maximum length 
of a printer line. The program identifi¬ 
cation is entered into columns 75-80. 

If the input file was read in by an 
IBM 1442 Card Read-Punch (as it is in this 


example) the code in Device (columns 40-46) 
would be READ42. The output printer would 
have a Device code of PRINTER. 

The Symbolic Device codes for the two 
files would be SYSRDR and SYSLST. Device 
and Symbolic Device codes are described in 
detail in the section of the manual RPG 
Specification Sheets. * 


Input Specifications Sheet 

The Input Specifications sheet also has 
the program identification entered in 
columns 75-80 and the page and line num¬ 
bers in columns 1-5. An I in column 6 of 
each card indicates an input specification 
entry. 

The filename is again entered into 
columns 7-14. Columns 15-16 contain the 
sequence code AA. Indicator 01, entered 
into columns 19-20, will be on throughout 
the job to show that records from its 
associated file are being processed. The 
second line describes the field name 
CARDIN. The field consists of card columns 
1-80. 

Output-Format Specifications Sheet 

On the Output-Format Specifications sheet, 
the filename of the output file is entered 
in columns 7-14. The D in column 15 indi¬ 
cates that each line printed in this file 
is a detail line. A single space after 
printing is specified by the entry in 
column 18. Indicator 01 from the Input 
Specifications sheet is specified in 
columns 24-25. When Indicator 01 is on, 
a record will be printed. 

The second output line has the name of 
the field to be written in the output 
record entered in columns 32-37. Data 
from the field labeled CARDIN will be 
printed (end position of 80) in the out¬ 
put record as specified in columns 40-43. 

SUMMARY 

This completes the general description of 
some of the functions that can be per¬ 
formed with RPG. Some of the fields of 
the specifications sheets were not ex¬ 
plained and some additional operations 
that can be performed with RPG remain to 
be described. At this point, the reader 
should be able to determine the scope of 
the RPG program. 

More specific information about each 
specification sheet is contained under 
RPG Specification Sheets . 
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PROGRAM LOGIC 


Each object program generated by RPG uses 
the same general logic, and for each record 
to be processed the program goes through 
the same general cycle of operations. 

Within that cycle, there are two different 
instances in time when operations specified 
on the Calculation and Output-Format 
Specification sheets are performed. These 
instances are called detail and total time. 

For the illustration of this concept, a 
generalized flowchart of an RPG object 
program is shown in Figure 31. 

The following numbers correspond to 
the numbers on Figure 31. A program cycle 
begins with item 1 and continues through 
item 11. Steps 6 and 7 are referred to 
as total time . Steps 11 and 1 are referred 
to as detail time . 

1. Before the first record is read, the 
object program prepares and prints any 
heading information to be printed on 
the first page. After the first 
record has been read, the object pro¬ 
gram prepares and prints heading and 
detail information that is not con¬ 
ditioned on overflow. 

2. The object program tests for any halt 
indicators. If any halt indicators 
are on, the program branches to item 
12 . 

3. The object program tests for the end- 
of-file conditions. If the end-of- 
file condition has occurred, the pro¬ 
gram branches to item 13. 

4. The object program then reads an input - 
record. 

5. All control level indicators and all 
resulting indicators (specified in col¬ 
umns 19-20 of the input sheet) are 
turned off. Then, starting with line 1 
of the Input Specifications sheet, and 
with the record just read, the object 
program uses the record identification 
code to identify the record. When the 
identification code matches an entry 

on the input sheet, the object program 
turns on the resulting indicator that 
has been specified for the record. 

When a control-field break occurs, 
appropriate control-level indicators 
are turned on. 

6. Next, all total calculations are per¬ 
formed. (This step is bypassed for 
the initial control break which is 
caused by reading the first input 
record.) 

7. Next, all total output lines that are 
not conditioned on overflow are pre¬ 
pared and printed. (This step is also 
bypassed for the first control break.) 

8. The object program tests for the Last 
Record indicator (LR) . If it is on, 
the program branches to item 14. 

9. The object program tests for an over¬ 
flow condition. If an overflow condi- 



Figure 31. General Logic Flow of an RPG 
Object Program 
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tion has occurred, the program branches 
to item 15. Overflow is defined as the 
condition existing whenever any of the 
indicators OA-OG, and OV are on. (This 
step is also bypassed for the first 
control break.) 

10. The data fields contained in the input 
record just read are moved into storage. 
These fields are specified by field en¬ 
tries on the Input Specifications Sheet. 

11. Any detail calculations are performed, 
and processing continues with item 1. 

12. Program execution is terminated. 

13. The Last-Record indicator (LR) is set 
on and all control-level indicators Ll- 
L9 are set on. Then the program 
branches to item 6. 

14. Program execution is terminated. 

15. If overflow has occurred, total lines, 
heading lines and detail lines (in that 
order) conditioned by overflow are 
printed. The program then branches to 
item 10. 


PROBLEM DEFINITION 

The programming examples in the preceding 
section were intended to introduce the 
reader to the use of RPG and were there¬ 
fore kept simple. More complex applica¬ 
tions may require a thorough analysis of 
the existing or proposed system before 
program writing. 

This analysis should include a descrip¬ 
tion of source data and its format, and 
how this data should be processed to de¬ 
velop the report and other necessary output 
information. 

The following types of information must 
be defined before coding the program: 

1. The available data. 

2. The input and output formats to be used. 

3. The information required in the input 
and output formats. 

4. The codes to be used to identify the 
various inputs and outputs and their 
elements. 

5. The handling of the various transactions 
and exc eption s. 

After all application data has been 
gathered, document it for easy reference 
during the writing of the specification 
forms. One method of documenting an appli¬ 
cation is to lay out the complete format of 
the report on a printer spacing chart. 

This method also provides a pictorial rep¬ 
resentation of the final product. 


PRINTER SPACING CHART 

Before the report specifications are writ¬ 
ten, the programmer should have a clear 
picture of what he wants as the final prod¬ 
uct. If the report is to be printed, he 
must know the number of fields to be placed 
on each line of the report, the spacing 
between lines, and the positioning of the 
information within each line of the report. 

Although no cards for the source deck 
are punched directly from the entries on 
this chart, the representation serves as 
a guide for completing the specification 
sheets. It plays an important role in 
writing report specifications. If the 
final product is written on magnetic tape 
or direct-access storage devices or if it 
is punched in cards, the user must know 
where the information is to be located. 

A tape layout chart or a direct-access 
storage-device layout chart can be used. 

Layout of Lines and Fields 

The two most important functions of a 
printer spacing chart are: 

1. To establish the positions of the data 
to be printed and to indicate the spac¬ 
ing between printed lines. 

2. To assign each line an identification 
code representing the type of line. 
Figure 32 shows an example of the prin¬ 
ter spacing chart (Form X24-6436). 

The numbers across the top and bottom 
of the spacing chart represent the print 
positions. The numbers down the left side 
are the line numbers. The programmer 
selects the line number and print positions 
for a particular field and makes his nota¬ 
tion in the selected positions. 

Headings and other constant information 
are spelled out completely in the print 
positions assigned to them. Variable in¬ 
formation is represented by X's and, where 
applicable, includes credit symbols, punc¬ 
tuation, etc. The position in an amount 
field where zero suppression ends is indi¬ 
cated by a zero rather than an X. 

Line-Identification Code 

The line-identification code specifies the 
type of line to be printed. The identifi¬ 
cation codes are: H for a heading line, 

D for a detail line, and T for a total 
line. All lines must be identified as 
belonging to one of these categories. 
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Figure 32. Printer Spacing Chart 
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RPG SPECIFICATION SHEETS 


This section provides detailed explanations 
of each specification field contained in 
the six RPG forms. 

Cross-References 


To make this reference manual a more effec¬ 
tive learning tool, numerous cross-refer¬ 
ences have been placed in the manual. They 
are located wherever it was thought that 
readers not familiar with disk storage 
processing and related functions would 
have difficulty with these unfamiliar sub- 
j ects. 

Disk storage, table lookup, matching 
field, and chaining field operations and 
related functions are described apart from 
the detailed descriptions of specifications 
for them. 

These general introductory descriptions, 
contained at the back of the manual, can 
be used by the reader as he encounters 
the related specifications for them 
throughout the manual. 

To facilitate locating them in the man¬ 
ual, all cross-references used are listed 
in the Index under Cross-References. 


The section Disk Storage Concepts pro¬ 
vides a general introduction to disk file 
organization and processing including ter¬ 
minology associated with these functions. 
Readers not familiar with these concepts 
may wish to review that section before 
beginning with this section RPG Specifica- 
tions Sheets. ~ 

GENERAL INFORMATION 

The forms are listed in the sequence in 
which they are discussed in this publica¬ 
tion (see Figure 33). 

Input Specifications 
Calculation Specifications 
Output-Format Specifications 
Line Counter Specifications 
File Description Specifications 
File Extension Specifications 

Input Specifications: (Refer to Figure 34) 

This form is used to: 

1. Specify the file or files to be read 
into the system. 

2. Identify the different types of records 
contained in each file. 

3. Describe the location of the data fields 
in each record. 



Figure 34. Function of Input Specifications 
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Calculation Specifications: This form 
specifies the operations to be performed 
upon the input data and upon data obtained 
as the result of previous calculations. 

Calculation specifications are 
graphically illustrated below. To per¬ 
form the operation A+B=C: The A field 
is specified in Factor 1 , the kind of 
calculation to be performed in Operation , 
the B field in Factor 2 and the C field 
in Result Field. 
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Left- and Right-Justification 

When making entries on the RPG sheets, it 
is important that the entry be right- 
justified or left-justified as required. 
Justifying an entry means having it begin 
in the first position of the specification 
(left-justified), or having it end in the 
last position of the specification (right- 
justified) . 

Alphameric entries (composed of both 
alphabetic and numeric entries) are always 
left-justified. Numeric entries are always 
right-justified. 

Information regarding the correct justi¬ 
fication is provided in the description of 
the entry, in those cases where it may not 
be clear to the reader as to whether the 
entry is alphameric or numeric. 


STERLING ROUTINES 

Sterling Routines are included in RPG to 
provide users with a convenient and time¬ 
saving means of handling amount fields that 
are punched in the format of Pound Ster¬ 
ling monetary units. 

The presence of sterling fields is indi¬ 
cated to the RPG program by additional 
entries in the input and output specifica¬ 
tions sheets and in the RPG Control Card. 
The other specifications sheets are not 
affected. All calculations are done in 
the Pence unit of measure. 


Output-Format Specifications: This form 
specifies: 

1. The kind of output files to be produced: 
printed reports, summary records, etc. 

2. The location of the data fields in the 
output reports and records. 

These functions are illustrated in Fig¬ 
ure 35 . 


COMMON FIELDS 

There are five entries that have the same 
function in all six forms. These are des¬ 
cribed first. 

NOTE: The numbers to the right of the 

specification name indicate the position 
on the specification sheet where the field 
is located. 


Line Counter Specifications: This form 
must be used if a report that will ulti¬ 
mately be printed is to be stored on some 
intermediate device, and if the program 
uses overflow indicators (or automatic 
skipping). 

File Description Specifications: This 
form provides additional information about 
input and output files that is not included 
on the input or output sheets. 

File Extension Specifications: This form 
provides additional information about 
tables, chaining files, and record-address 
files. 


Page (1-2) 

This specification is located in the upper 
right-hand corner of the sheets. Each 
specification page of the source program 
may be numbered. The pages are numbered 
beginning with 01 for the first File 
Description sheet, 02 for the second File 
Description sheet and continuing in the 
following sequence: 

File Description Specifications 
File Extension Specifications 
Line Counter Specifications 
Input Specifications 
Calculation Specifications 
Output-Format Specifications 
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Figure 35. Functions of Output-Format Specifications 


Line (3-5) 

Each specification line may be identified 
by a line number. The first two digits of 
the line number are pre-printed on the 
form. The third position (column 5) is 
used when, after all specifications have 
been written on form, it becomes necessary 
to insert/an additional line between two 
previously written lines. The line to be 
inserted is written following line 15. It 
is given an appropriate number (and subnum¬ 
ber in column 5). 

The page number and line number have no 
direct effect on the program and need not 
be written. These columns are for the con¬ 
venience of the programmer to indicate the 
proper order of the RPG source program 
cards. For example, the specification 


cards for a program could be placed in 
numeric sequence (if, for example they 
were accidentally dropped or upset) by 
sorting or arranging them in sequence by 
page number and line number. 

Form Type (6) 

Each form has an appropriate type-code 
preprinted in column 6. This code must be 
punched into all specifications cards. 

The codes are: 

I Input specifications 
C Calculation specifications 
0 Output-Format specifications 
L Line Counter specifications 
F File Description specifications 
E File Extension specifications 
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Comments (*Column 7) 

This feature enables the programmer to 
insert an identifying comment in the speci¬ 
fication sheets. This facility can be 
used, for example, to identify the end of 
one section of a program. These comments 
are written on the specification line, 
preceded by an asterisk in column 7. Dur¬ 
ing the generation of the object program, 
the asterisk in column 7 identifies the 


comment so that it is not considered a 
specification. 

Program Identification (75-80) 

This specification is located in the upper 
right-hand corner of the sheets. This 
entry identifies the specification cards 
for a particular program or for a specific 
section of a large program. 
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INPUT SPECIFICATIONS SHEET 


GENERAL INFORMATION 

The specifications for this sheet are 
divided into two categories as shown in 
Figure 36. 

1. Record Identification (columns 7-42). 
These entries identify the input record 
(by specifying the identifying record 
codes it contains) and specify the 
relationship of the record to other 
records in the file. 

One line of the sheet is used to 
describe one record type. 

When the specifications are being 
written it is not necessary to indicate 
the specific input units used in the 
program. The unit used for each file 
is specified on the file description 
sheet. Each file name therefore is re¬ 
lated to a specific input unit. By 
merely writing the file name on, the 
input sheet, the input unit has, in 
effect, been specified. 

2. Field Description (columns 43-74). 

These entries describe the fields of 
the input record used in the report. 


Each field is described on a sepa¬ 
rate line and is written on the line 
below its corresponding record- 
identification entry. 


Sequence of Input Records 


To save processing time, input records that 
occur only rarely in the program should 
always be specified at the end, and input 
records that occur frequently should be 
specified at the beginning of each specifi¬ 
cation list. ( Specification list is a 
term used to describe the specifications 
from one or more of the same type of speci¬ 
fications sheets.) 

On each detail cycle, the specifications 
are examined in the same sequence in which 
they are written on the Input Specifica¬ 
tions sheet. 

For example, assume a card file contain¬ 
ing 3000 cards is to be processed and that 
there are five different exception proce¬ 
dures that must be followed for some of the 
cards. If the program is written so that 
the specifications concerning the excep¬ 
tion cards are at the beginning of the 
















































input list, then, as each card is read, 
all specifications for the exceptions must 
be examined first before the specifications 
for the normal processing are found. Thus 
a great amount of processing time would be 
wasted if the card file contained only two 
or three exception cards but the exception 
specifications had to be examined for all 
3000 cards. 


RECORD IDENTIFICATION ENTRIES 
FILENAME (7-14) 

A file name must be given to each input 
file. The file name must be left-justified 
(that is, it must start in column 7) and 
it must begin with an alphabetic character. 
The remaining characters of the name may 
be alphameric, but must not contain special 
characters or embedded blanks. The file 
name may be eight characters or fewer. 
(Embedded blanks are blank positions fall¬ 
ing between other characters of the name.) 

NOTE: In this publication, alphabetic 

character refers to the letters A through 
Z, the dollar sign, pound sign, and the at 
sign ($, #, and @) . 

The file name must be entered only with 
the first record-identification line of 
the appropriate file. 

SEQUENCE (15-16) 

This specification is used to check the 
sequence of cards within a control group. 
Figure 37 illustrates a card file contain¬ 
ing three types of cards for each part- 
number control group. In this example, to 
assure correct accumulation of the values, 
the balance-forward card must be the first 
card in the control group, the receipt card 
the second, and the new order card the 
last. 

The specifications for checking the 
sequence of these cards is shown in Figure 
38. (Field description specifications 
are not shown.) 

If the file is not in sequence the halt 
indicator HO is turned on. Unless this HO 
indicator is turned off by a SETOF opera¬ 
tion (see Turning Indicators On or Off) 
in the calculation specifications, the 
program will stop before the next input 
record is read. 

The cards are specified on the form in 
the same sequence in which they are to be 
read by the object program. 

NOTE: The entries in Sequence must begin 

with 01 in each file and be consecutive in 
ascending order. 



Figure 37. Card Types within Control Groups 


Alphabetic codes must be placed in 
Sequence if the input records do not have 
to be in sequence within a control group 
or if it is not necessary to stop process¬ 
ing when the records are not in sequence. 
Any two alphabetic characters can be used. 

Header cards or other cards that are 
not in sequence must be specified on the 
form before specifications that must be 
sequence-checked. 

NOTE: If a numeric specification is 

given in Sequence then specifications must 
also be provided in Number and Option. 
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Figure 38. Example of Sequence-Checking 
within Control Groups 




Figure 39. Number of Record Types within a 
Control Group 


NUMBER (17) 

If a numeric code is assigned under 
Sequence, an entry must also be made in 
Number (co1umn 17) . If an alphabetic code 
has been assigned under Sequence, this 
column must be blank. 

This specification indicates whether 
only one record of a specific record-type 
should exist in each control group or 
whether one or more than one record of a 
specific record-type may exist in each con¬ 
trol group. For example. Figure 39 illus¬ 
trates two control groups of cards. In 
this example, there can only be one balance- 
forward record in each control group, but 
there may be one or more new orders or 
receipt records. 

The entry for the specification Number 
is either: 

1 if only one record of a type may 
exist in a control group, or 

N if one or more records of a type may 
exist in a control group. 
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Figure 40. Specification 
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OPTION (18) 

This specification is used only with 
numeric-sequenced record types. 

If the presence of a record is optional, 
the letter 0 is entered in this column. 

If a specific record type must be present 
in order to perform an operation, or if 
records are non-sequential, this column 
must be left blank. 

In both Figures 38 and 40, the specifi¬ 
cations under Option indicate that there 
must be a balance-forward card for each 
control group, but there may or may not be 
a new-order or receipt card. 

RESULTING INDICATOR (19-20) 

This specification is used in conjunction 
with the next specification Record Identi¬ 
fication Codes (21-41). It has two pur¬ 
poses: 

1. To establish a 2-digit code for each 
input record type. 

2. To set up a special condition in the 
object program each time the input 
record is read into the system. The 
object program may consider this con¬ 
dition during the processing of the 
calculation and output specifications. 

As an example of the first function, 
assume that a certain card type is identi¬ 
fied by the following codes: 

1. Digit 5 in column 40 

2. 11-punch in column 79 

3. No 12-punch in column 80 

By assigning a two-digit resulting indi¬ 
cator to represent all of these codes it is 


much easier to refer to this card type dur¬ 
ing the writing of the calculation and out¬ 
put specifications. 

As an example of the second (and more 
important) function of this specification, 
resulting indicators can be compared to 
selectors in punched-card machines, or to 
internal or external switches on electronic 
data processing machines. The use of 
resulting indicators (like the use of 
selectors and switches), is to permit cer¬ 
tain operations to occur only on specific 
conditions. 

Figure 41 illustrates, by symbols, how 
resulting indicators are used in the object 
program. In this example, a payroll file 
contains three types of cards. 

Card Type Resulting Indicator 

current earnings 14 

deduction 15 

adjustment 16 

When one of these cards is read into 
the system during the object run, the 
appropriate resulting indicator is turned 
on, and those specifications pertaining to 
the record are performed. The detail spec¬ 
ifications for these record types are 
indicated on the calculation and output 
specifications forms and are controlled by 
one of these three indicators. Specifica¬ 
tions associated with other record types 
are not performed. 

The input specifications required to 
establish the three indicators shown above 
are illustrated in Figure 42 . (Field 
description specifications are not shown.) 



Figure 41. Sample Logic Flow Using 
Resulting Indicators 


Figure 42. Specifying Resulting Indicators 
on Input Specifications 
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Resulting indicators - from input 
records - are turned ON and OFF during the 
processing of the object program, as the 
various record types are read by the system. 
However, only one resulting indicator can 
normally be on at one time. When a result¬ 
ing indicator is turned on, all other 
resulting indicators are turned off. (See 
Chaining for an exception to this rule.) 

Other indicator conditions that can be 
established in the program are Field Indi¬ 
cator s (columns 65-70) of the input speci¬ 
fications and Resulting Indicators (columns 
54-59) of the calculation specifications. 
These functions are described later, but 
one aspect of their use is of interest at 
this time. 

All three types, of indicators are 
assigned a 2-digit number in the range of 
01 through 99. Any of these 99 codes can 
be assigned to any one of the three types 
of indicators. Also the indicator codes 
do not have to be assigned in any sequence. 
For example, four different card types that 
are read into the system could be assigned 
codes 40, 62, 99, 02. 


RECORD IDENTIFICATION CODES (21-41) 

This specification provides a way of iden¬ 
tifying each different record type used in 
the object program. As mentioned previ¬ 
ously, once the record type has been 
defined on the Input Specifications sheet, 
references to the record are made by its 
resulting indicator. 

These columns provide for the entry of 
one to three identifying codes as indicated 
by the number 1, 2, and 3 on the Input 
Specifications sheet. It is possible to 
specify more than three record identifica¬ 
tion codes by using more than one line. If 
only one record type is in the input file, 
the identification codes can be left blank. 

Each of the three sets of entries is 
the same, so 'only the first set (columns 
21-27) is- described. Each set is divided 
into four categories: 

Position (21-24) 

Not (25) 

C/Z/D (26) 

Character (27) 


Position (21-24) 

Enter in these columns the position in each 
data record of the character that contains 
the identifying code. The position must be 
right-justified in columns 21-24, and lead¬ 
ing zeros may be omitted. 


Not (25 ) 

Enter an N in this column if the code des¬ 
cribed must not be present in the specified 
record position. Otherwise, leave this 
column blank. 

C/Z/D (26) 

The object program identifies the different 
record-types of a program by comparing the 
character written in Character against the 
codes contained in the records. The entry 
in column 26 specifies whether the object 
program is to compare against the entire 
character (C) , against only the zone por¬ 
tion (Z), or against only the digit portion 
(D). Enter a C, Z or D in column 26. 

ZONE RECORD IDENTIFICATION. Testing a zone 
means that the zone of the character located 
in the position specified in columns 21-24 
of the input sheet is used to identify the 
record. (The word "Zone" in this case re¬ 
fers to the meaning of this word in punched- 
card data processing systems. It does not 
refer to bits 0-3 of the System/360 EBCDIC 
character coding.) 

The ampersand, the minus, and the blank 
are exceptions. An ampersand will be iden¬ 
tified as a 12-zone, a minus will be iden¬ 
tified as an 11-zone, and a blank will be 
identified as a no-zone. The four common 
zones are: 

1. 12-zone or plus zone ( 5 , A-I, and &) 

2. 11-zone or minus zone (0, J-R, and minus) 

3. 0-zone (S-Z) 

4. No zone (0-9 and Blank). 

NOTE: When a blank, ampersand, or minus 

is used in the character portion of a zone 
test, other characters which contain the 
same machine zone (e.g., $^, or %_, respec¬ 

tively) will not satisfy the zone test. 

DIGIT RECORD IDENTIFICATION. Testing a 
digit means that the digit portion of the 
character located in the position specified 
in columns 21-24 of the input sheet is used 
to identify the record. (The word "digit" 
in this case refers to the meaning of this 
word in punched-card data processing sys¬ 
tems. It does not refer to bits 4-7 of the 
System/360 EBCDIC character coding.) 

Character (27) 

Enter in this column the identifying char¬ 
acter that will be compared to the char¬ 
acter specified in the input record. The 
character used in this column may be any 
letter A through Z, any number 0 through 9, 
or any special character. 
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Examples of Record Identification Codes 


Examples of record-identification specifi¬ 
cations are shown in Figure 43. The explan¬ 
ation of each entry is given here. 

1. This entry specifies an 11-zone in 
record position 48. Any of the letters 
J-R could be placed in Character because 
they all contain an 11-zone. A Z must 
be placed in column 26 so that only the 
zone portion is checked. If a C were 
placed in this column, the object pro¬ 
gram would compare the letter K against 
the input-record code instead of an 11- 
zone. A minus could be placed in this 
field to represent an 11-zone, and an 
ampersand could represent a 12-zone. 

2. This entry specifies that no 11-zone 
may be present in record-position 48. 

3. This entry specifies that the digit 
portion of the code is checked. A char¬ 
acter whose digit portion is 5 must be 
in record-position 62. For example, a 
5, N, V, or E would fulfill this 
requirement. 

4. This entry specifies that the letter T 
must be present in record-position 49. 

5. These entries specify that all three 
codes must appear in the same record. 

A 4 must appear in column 16. Column 
40 must not contain the number 5, and 
column 80 must contain a 12-zone. 


NOTE: When more than one record type is 
specified for a file, the record identi¬ 
fication codes of all record types must 
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be mutually exclusive; that is, it must 
not be possible for an input record to 
satisfy the identification codes of 
more than one record type. 


AND Relationship 


The last example illustrates the way to 
specify more than one code on more than 
one line. If an input record contained 
five different codes, they could be speci¬ 
fied as shown in Figure 44. This is known 
as an AND relationship. It implies that 
the card is identified by: 

1. A 4 in column 16, 

2. No 5 in column 40, 

3. An 11-zone in column 80, 

4. A 2 in column 20, and 

5. A 3 in column 25. 

Additional specification lines can be 
used to specify as many record-identifica¬ 
tion codes as required. Each additional 
line must begin with the word AND in col¬ 
umns 14-16 and blanks in columns 17-20. 

OR Relationship 

An AND relationship is concerned with spec¬ 
ifying more than three record identifica¬ 
tion codes, for one record type, whereas an 
OR relationship is used to specify two dif¬ 
ferent record types with just one set of 
field description specifications. The 
fields in the two record types may be in 
the same positions or in different posi¬ 
tions . 

A complete description of OR relation¬ 
ships is presented after the description 
of Field Location (columns 44-51). 
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Figure 43. Record Identification Codes 


Figure 44. Specifying More Than Three 
Identification Codes 
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Omitting Record Identification 


STACKER SELECT (42) 


When input records are to be processed 
alike without regard for their identifying 
codes, columns 21-41 may be left blank; 
however. Sequence (columns 15-16) and 
Resulting Indicator (columns 19-20) must 
be specified. 

When only certain record types within a 
group are to be read and processed, they 
must be listed first with their identifying 
record codes. The remaining record types 
may be bypassed or processed as a group. 

In either case, they are specified as the 
last record type, and they must have a 
resulting indicator specified for them. 
Columns 21-41 of the Input Specifications 
sheet can then be left blank. 

If a record type that has not been iden¬ 
tified on the Input Specifications Sheet 
appears in an input file during the process¬ 
ing of the object program, a special indica¬ 
tor, HO, is turned on. Unless HO indicator 
is turned off by a SETOF operation (see 
Turning Indicators On or Off) on the Cal¬ 
culation Specifications Sheet, the program 
will stop before the next input record is 
read. 


NOTE: If the records are to be bypassed, 

they should not be referred to on the cal¬ 
culation or output sheets. 


Variable-Length Input Records 


If the record length of the shortest 
variable-length record is less than the 
highest position tested in Record Identifi¬ 
cation , then a blank cannot be used as a 
means of identifying a record in those posi¬ 
tions that exceed the length of the minimum 
record. This is illustrated in the follow¬ 
ing example. 


Record Identification Codes Record Length 

X-14 30 

X-30, X-41 NX-60 60 

NX-49 

X-21, NX-79 80 

X-49, NX-34 50 


The minimum variable-length record is 30 positions; therefore a 
blank cannot be used as a record identification code in any 
position higher than 30. 


This specification causes cards to be 
selected into stackers of the input/output 
units. It is used when an input/output 
unit with more than one stacker is attached 
to the system. 

If no entry is made in Stacker Select, 
the cards from the input file are selected 
to the first stacker pocket depending on the 
input/output unit attached to the system. 

For input cards that are to be punched 
by the program, stacker selection must be 
specified on the Output-Format Specifica¬ 
tions sheet. 

The stacker pockets and their acceptable 
codes are shown in Figure 45. 

The stacker-select entry is made on the 
same line with the record identification. 

If different records in an OR relationship 
are to be stacker-selected, the appropriate 
stacker-select entry must be written on 
each OR-record identification line. 


Input Unit 

Stacker 

Stacker 

Number 

Select Code 

1442 Card Read-Punch 

1 

2 

1 or Blank 

2 

2501 Card Reader 

- 

Blank 

2520 Card Read-Punch 

1 

2 

1 or Blank 

2 


R1 

1 

2540 Card Read-Punch 

R2 

2 


RP3 

3 


Figure 45. Summary of Stacker Select 
Specifications (Input) 


FIELD DESCRIPTION ENTRIES 

As mentioned previously, the Input Speci¬ 
fications sheet consists of two categories: 
record identification and field descrip¬ 
tion. 

On the record identification portion of 
the Input Specifications sheet, one line 
represents the specifications for one 
record type. On the field-description 
portion of the sheet, one line represents 
the specifications for one field of a 
record. 

The following information concerns the 
individual field descriptions of one record 
type. Field descriptions are always writ¬ 
ten on the specification line immediately 
below the specification line that identi¬ 
fies the record type. 
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Field description entries describe the 
fields of the input record to be used in 
the report. Each field of the record 
requires one line on the Input Specifica¬ 
tions sheet. Columns 7-42 of the line must 
be blank. 

NOTE: Unused record fields should not be 

described, since this would waste core 
storage and processing time. 

PACKED (43) 

Packed format in the System/360 means that 
two decimal digits can be represented in 
one core storage byte. This is the data 
format used for numeric fields in RPG. 
Because input data is usually represented 
in the unpacked format - one digit in one 
core storage byte - the RPG program auto¬ 
matically converts numeric input data from 
the unpacked format to the packed decimal 
format. Because the packed decimal format 
permits greater utilization of storage 
capacities (Card-Tape-Disk) the RPG pro¬ 
gram permits numeric data to be put out 
in the packed decimal format. (See Output- 
Format Specifications Sheets. ) 

In order to utilize this numeric output 
data in subsequent processing runs, RPG 
permits data in packed decimal format to 
be read into the RPG program. 

Enter a P in this column if the numeric 
input field is in the packed decimal for¬ 
mat. Otherwise, leave this column blank. 
(The letter P causes the RPG program to 
bypass the normal conversion of unpacked 
format to packed decimal format.) 

The implied field length for determin¬ 


ing the length of fields in calculation 
specifications for input in packed decimal 
format is: 

2n - 1 

n = number of input record positions 
used 

FIELD LOCATION (44-51) 

Columns 44-51 of the Input Specifications 
sheet are used to describe the location of 
each field in the record. The maximum 
field length for a numeric field is 15 
digits . The maximum field length for 
an alphameric field is 256 characters. 

From (44-47) . This specification contains 
the location of the first position (left¬ 
most position) of the field. 

To (48-51) . This specification contains 
the location of the last position (right¬ 
most position) of the field. 

NOTE: The entries in columns' 44-47 and 

48-51 must be right-justified. Leading 
zeros may be omitted. 

Figure 46 illustrates a card input 
record. The field location specifications 
necessary to read this card into the sys¬ 
tem are shown in Figure 47. 

The fields of the record may be listed 
in any sequence. (In this example they are 
shown in the same sequence as they appear 
on the card to make the example easier to 
understand.) 

The specifications in Decimal Positions 
and Field Name are also included in Figure 



Figure 46. Sample Input Card 
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47 because all three fields are closely- 
related. These specifications are ex¬ 
plained following the description of Field 
Location. 

Records in an OR-Relationship 

It is possible to specify two different 
record types with just one set of specifi¬ 
cations. This is known as an OR relation¬ 
ship. There are three types of OR rela¬ 
tionships: 

1. One or more record types have the same 
fields in the same positions of the 
record. (For example, all fields in one 
record type are in the same relative 
positions in another record type.) 

2. One or more record types have the same 
fields, but the fields are in different 
positions of the record. (For example, 
unit cost is in positions 21-25 in one 
record type and in positions 31-35 in 
another record type.) 

3. One or more record types have different 
fields in the same positions or in dif¬ 
ferent positions of the record. (For 
example, two record types with ten 
fields in the same relative positions, 
but with three fields in different posi¬ 
tions.) 


It is of value to specify an OR rela¬ 
tionship for the types in items 2 and 3 
above only if there are more fields that 
are alike than fields that are unlike. 

As an example of the first type of OR 
relationship assume that there were two 
detail labor cards in the preceding exam¬ 
ple; perhaps the second having been cre¬ 
ated during the previous week's reporting. 
If the second card had the same fields as 
the first, but with a different record 
identification code, it would not be neces¬ 
sary to repeat all of the field specifi¬ 
cations for the second card. 

Figure 48 shows the only additional 
specifications required in order to specify 
both detail labor cards. The specification 
OR is entered in columns 14 and 15, and 
columns 16-18 are left blank. The last OR 
line (if there is more than one OR rela¬ 
tion) is followed by the field description 
entries. 

Figures 49 and 50 illustrate how to 
specify two records in an OR relationship 
when the field locations are not the same. 
The input record in Figure 49 is similar 
to the record in Figure 46 except that FLDC 
is located in positions 61-65, instead of 
positions 66-70. By specifying an OR rela¬ 
tionship it is possible to specify both 
record types with one set of specifications. 
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Figure 50 illustrates the specifications 
for this example. The numbers in the mar¬ 
gin of the s\obsequent text refer to the 
numbers circled in Figure 50. 

1. When field locations are not the same 
for both types, it is necessary to pro¬ 
vide a separate resulting indicator code 
for the second record type. 

2. Each field that is not located in the 
same positions in both record types must 
be specified twice, Each of the two 
specifications must be related to the 
appropriate record type. This is accom¬ 
plished by specifying the appropriate 
resulting indicator code in Field—Record 
Relation . 

For example, FLDC located in positions 
66-70 is related to Resulting Indicator 14 
(the record type identified by a 5 in col¬ 
umn 35); and field FLDC in positions 61-65 
is related to Resulting Indicator 16 (the 
record type identified by a 6 in column 
35). Thus, if Resulting Indicator 14 is 
on, FLDC will be taken from positions 66- 
70; if Resulting Indicator 16 is on, FLDC 
will be taken from positions 61-65. 

It is also possible to take advantage 
of an OR relationship to specify control 


fields that are not in the same positions 
in two different record types. In addi¬ 
tion, specifying record types in an OR 
relationship is not limited to just two 
records. As many records as required can 
be specified as having an OR relationship. 

DECIMAL POSITIONS (52) 

This specification performs two functions: 

1. It is used by the object program to 
determine the number of decimal posi¬ 
tions contained in the field specified 
in Field Location . 

2. It causes the field specified in Field 
Location to have 0 (zero)-, 11-, or 12- 
zone bits removed from all positions 
except the rightmost position. 

If the field specified in Field Loca¬ 
tion is to have calculations or edit func¬ 
tions performed upon it or if it will be 
zero-suppressed in the output, there must 
be a specification in Decimal Positions. 

If there are no decimal positions in an 
arithmetic field, a zero must be specified. 
This specification must be left blank if 
the field is alphameric. 
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Figure 49. Sample Input Record, Differing Field Locations 






































































In Figure 51, the fields DIVSON, DEPT, 
and EMPNO contain numeric information, but 
because they will not have arithmetic oper¬ 
ations performed upon them, they are speci¬ 
fied as "alphabetic" fields by leaving 
Decimal Positions blank. The NAME field is 
alphabetic and therefore is also blank in 
Decimal Positions. The fields FLDA, FLDB, 
and FLDC are numeric arithmetic fields with 
decimal specifications of zero. 

FIELD NAME (53-58) 

Each field defined must be given a field 
name. Once a name has been assigned to a 
field, other references to it are made by 
using the field name, rather than by using 
the specific record position each time. 
Thus, the record positions of the input 
fields are not needed when writing the cal¬ 
culation and output specifications. 

The field name must begin with an alpha¬ 
betic character, and it must start in col¬ 
umn 53. The field name may be alphameric, 
but it may not contain special characters 
or embedded blanks. 

Figure 52 illustrates field names that 
are easy to read and suggest the function 
of the fields they represent. 

Two input files may have fields with 
the same field names. A field name is 
assigned only once by RPG. The two input 
files will use the same storage location 
for fields with identical names. This pro¬ 
cedure is permissible when using RPG, but 
the programmer should be aware that pos¬ 
sible errors in calculations or output may 



Figure 51. Specifying Decimal Positions on 
Input Form 



Figure 52. Field Names 


occur when two input files have the same 
field names. This is especially important 
when chaining fields are specified on the 
Input Specifications sheet. 

Specifying the Same Da t a Field as Alpha¬ 
meric and Numeric 

If the same field from an input record is 
to be used as both an alphameric and a 
numeric field, the field must be specified 
twice by assigning two different field 
names to the same location in the record. 
(If no decimal positions are specified for 
the field,, it is considered to be an alpha¬ 
meric field.) 


Using Input Data Fields as Constants 

The term constant is frequently used to 
describe information that is not changed 
with each record. It is usually not al¬ 
tered during the object run. Examples of 
constants are date cards, or other data 
that may be changed for each run. 
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The technique to get this information 
to the program is by defining a special 
record type and by assigning a field name 
that is not otherwise used. This technique 
will also permit entering of constants 
that are too large to be specified as lit¬ 
erals in the source program. 

When only a single input file is pro¬ 
cessed, the date or constant card(s) may 
be placed at the front of the file pre¬ 
ceding the first data record. 

If an additional file is required for 
entering the constant information, it may 
be designated as a primary file, and the 
data file as a secondary file. Using this 
technique, the primary file will be proc¬ 
essed first and the constant information 
will be entered prior to the data records. 

If multiple input files are processed, 
the constant card(s) may appear as the 
first records on any file. The constant 
records should be defined in the input 
specifications for the associated file and 
should not have matching fields. (See 
Matching Fields ) . In a job with multiple 
files, the constant file could be desig¬ 
nated as secondary and since its associ¬ 
ated input specifications have no matching 
fields, its records will be processed 
first. 

CONTROL LEVEL (59-60) 

As the object program is processed, a 
change in a control field causes all proc¬ 
essing indicated by this change to be 
initiated. Columns 59-60 are used to pro¬ 
vide a convenient and simple method for 
specifying all control functions. 

Up to nine control levels can be used 
by RPG. These levels are designated from 
low to high as LI, L2, L3,.... L9. An 
indicator similar to a resulting indicator 
is associated with each control-level des¬ 
ignation. They are used to control func¬ 
tions specified on the calculation and out¬ 
put specification sheets. When the field 
specified in Field Location is a control 
field, its appropriate control level must 
be specified in columns 59-60. The first 
three lines in Figure 52 shows the entries 
for three control fields. 

The field DIVNO (first entry in the 
example) is the highest level of control. 

The indicator L3 could be used to 
specify when the calculation specifications 
for the control field DIVNO are to take 
place, or when the totals for the field 
DIVNO are to be printed or summarized. 

More information regarding the use of the 
control level indicators is presented in 
the descriptions of the calculation and 
output specifications sheets. 

NOTE: Whenever control levels are used, a 

control break will occur on the first rec¬ 
ord of a record type which has control 


levels. Total calculations, total lines 
and overflow lines are bypassed until after 
the control break occurs. 


Additional Functions of Control Level 
Specifications 

If a field specified in Field Location 
also has an entry in Control Level" the 
object program places the field into two 
storage areas. One area, known as a 
control-field holding area, is used for 
the controlling functions of the field, and 
the other is used for any other uses of the 
field (such as for printing or for arith¬ 
metic calculations) . 

For example, it may be necessary to use 
a field for controlling functions but with¬ 
out considering zone bits in the comparison 
of one record to the next record. If the 
zone bits are not to be used in a compari¬ 
son, specify the field as numeric by mak¬ 
ing a decimal entry in column 52. If the 
zone bits are to be used in a comparison, 
leave column 52 blank. 

In Figure 52, L3 in columns 59-60 causes 
the field DIVNO to be placed into storage 
in one area with zone-bits removed from all 
positions of the field (to be used for con¬ 
trol functions) and to be placed in another 
area with zone bits removed from all posi¬ 
tions of the field except the units posi¬ 
tion. 

The RPG program automatically performs 
the operations of storing the field twice 
and performing the appropriate zone elimin¬ 
ation. No additional specifications need 
be written by the programmer. 

Split Control Fields 

Several fields in an input record can be 
specified as one control field. In the 
lower half of Figure 52, three fields, 
which are not in adjacent record positions, 
are specified with the same L4 control 
level. The three fields are treated as one 
control field: 

CUSNO _ ACTNQ _ REGNO 

The first field defined on the input sheet 
is placed in the high-order position, and 
the last field is placed in the low-order 
position. All fields are placed accord¬ 
ing to the sequence in which they are 
defined on the Input Specifications sheet. 

Using Split Control Fields with Field- 
Record Relation 

The use of the Field-Record Relation speci¬ 
fication in conjunction with control level 
indicators permits the programmer to define 
the same control level for split or non¬ 
split control fields in various record 
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FLDD | FLDE 

00000000000000000000000000000000000000000000 

21 22 23 24 25 26 27 28 29 30| 31 32 33 34 35 36 37 38 39 4( 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 7 

I 1 1 1111 1 1 1 111 11 1 1 1 1 1 1 111 1 1 1 1 1 1 1 1 ill 1 1 1 1 1 1 1 1 ill 1111111111111111111111111111111111 
2 2 2 2 2 2 2 2 2 212 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
33333333333333333333333333333333333333333333333333333333333333333 
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Figure 53. Input Cards with Multiple Split Control Fields 
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Figure 54. Example of Multiple Split-Control-Field Specifications 


types. This is illustrated in Figure 53 
and Figure 54. 

The following points must be considered 
when using field-record relation indicators 
with split-control-field specifications. 

1. The overall field length for each con¬ 
trol level must be the same in each 
group. 

2. The sum of the split-control fields 
cannot be greater than 256 bytes. 

3. Split control fields of any one level 
are arranged in storage in the same 
sequence as they appear in the input 
specifications. 

4. If a field-record relation indicator is 
specified for a control level, the re¬ 
lated field location is used for control 
purposes whenever that indicator is on. 
The examples that are identified by the 


circled numbers in Figure 54 illustrate 

this point. 

1 When either indicator 93 or 94 is on, 
LI is composed of positions 1-5 and 
6 - 10 . 

2 When- indicator 91, 93, or 94 is on, 

L2 is composed of positions il-20. 

3 When indicator 92, 93, or 94 is on, 

L3 is composed of positions 21-40. 

A control level with a blank field- 
record relation indicator is used for 
control purposes when all indicators 
that condition any field with the 
same control level are off. 

4 To specify a portion of a split con¬ 
trol field as being common to several 
record types, repeat that portion of 
the field definition with each record 
type indicator. 
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MATCHING FIELDS OR CHAINING FIELDS (61-62) Doto Contained in First Record 


This specification is used if the input 
consists of more than one file. It pro¬ 
vides the program with the ability to match 
or to chain the records of one file with 
those of another file. 


DEPT 008 
REGION 051 
DIVSON 003 

Data Contained in Second Record 


Matching Fields 


Up to three matching fields (designated by 
Ml, M2, and M3) are allowed. This entry 
may be used to match records in different 
sequential files. The second sample pro¬ 
gram at the back of this publication uses 
matching fields in a card input file and 
a tape input file to govern processing of 
records. A discussion of this use of 
matching fields is contained in Processing 
Multiple Input Files. 

If a field specified in Field Location 
also has an entry in Matching Fields , the 
field is placed into another storage area 
known as a matching-field holding area. 
Comparisons of matching fields are per¬ 
formed in these holding areas. 

Using the Matching Fields Specification for 
Sequence-Checking: If only one input file 

is specified, fields within the file may 
be sequence-checked by using the Matching- 
Fields specification. Up to three fields 


\S CORPORATION 

\lNPUT SPECIFICATIONS 


1 





12 75 76 77 78 79 80 





Pa »* 1 1 1 Identification 

1 II II 


z 



/ 

Field 

Location 

»o Decimal Positions 

Field Name 

53 54 55 56 57 58 

^ Control Level (L1-L9) 

— 

2 2 

£ 6 
61 62 

oc 

“O 

DC 

3» 

63 64 

Field 

Indicators 

Sterling 

Sign 

Position 

71 72 73 74 

I 41 

/ 

42 4 

From 

44 45 46 47 

To 

48 49 50 51 

Plus 

65 66 

67 68 

Zero 

Blank 

69 70 

I 













1 













\ 


1 

24 


HA ME 








' 


11 

25 


Hum 








L_ 

1 7 

19 


DEPT 


Ml 







V- 

zd> 

22 


regioh 


M2 






\_ 

23 

25 


DIVSON 


43 



















Figure 55. Using Matching Fields to Se¬ 
quence Check in a Single Input 
File 
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Figure 56. Comparing Matching Fields 


within the file may be checked. A chaining 
file may also be sequence-checked. If the 
chaining field is to be sequence-checked, 
it must be defined twice, using two differ¬ 
ent field names. In Figure 55 three fields 
within the input file are to be sequence- 
checked. The data from the three fields 
will be moved by the RPG program to the 
matching-field holding area as shown in 
Figure 56. When the second record has been 
read, it will be moved as shown. The com¬ 
pare operation is made on all three fields 
at the same time. M3 is placed in the 
highest-order position. Ml is placed in 
the low-order position. 

In column 18 of the File Description 
Specifications sheet the programmer must 
specify if the file is in ascending or 
descending sequence. In Figure 56 assume 
that the file has been specified in ascend¬ 
ing sequence. The number 003051008 is 
lower than 005025003. Thus, the file is in 
ascending sequence. 

If the file is not in sequence the Halt 
indicator HO is turned on. Unless this HO 
indicator is turned off by a SETOF opera¬ 
tion (See Turning Indicators On or Off ) in 
the calculation specifications, the program 
will stop before the next input record is 
read. 

Exit to External Translate Subroutine: 

If the sequence of the matching fields is 
not the same as the collating sequence of 
the System/360, the RPG program can provide 
an automatic exit to an external user sub¬ 
routine that translates the sequence of the 
matching fields to the collating sequence 
of the system. 
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An entry in the RPG Processor Control 
Card is all that is required to cause the 
RPG program to branch to the subroutine. 

The automatic branch occurs after the input 
card is read in and before the RPG program 
checks the sequence of the matching field. 

The subroutine to translate the matching 
fields must use the predefined label 
ALTSEQ. The register conventions for this 
subroutine are the same as those for the 
EXIT operation. (See Exit to a Subroutine .) 
The address of the matching-field holding 
area will be contained in Register 1. The 
subroutine must place the translated fields 
back into the matching-fields hold area 
before it returns control to RPG. 

Chaining Fields 

The use of chaining files is explained in 
the section Chaining. Up to nine chaining 
fields are permitted in a record. In these 
columns enter the code that identifies the 
chaining field (Cl through C9). 

FIELD-RECORD RELATION (63-64) 

This specification is used when there are 
records in an OR relationship and the 
fields of the records are not in the same 
location. Enter in columns 63-64 the ap¬ 
propriate resulting indicator which will 
be on when the field is used. An explana¬ 
tion of the use of this specification was 
contained in Records in an OR Relationship, 
and an example of this specification is 
provided in Figure 50. 

Using Field-Record Relation with Chaining 
Files 

An additional function of this specifica¬ 
tion is to selectively control chaining 
operations. (See Chaining for a general 
explanation of chaining. In order to 
understand this function, readers should 
be familiar with chaining operations and 
with the use of the Calculation Specifica¬ 
tions sheet.) 

If a chaining field is specified on a 
field description line and Field-Record 
Relation is blank, the chained record will 
be obtained whenever the record type (for 
the chaining field) is present. However, 
if a resulting indicator is placed in 
Field-Record Relation , then the chained 
record will be obtained only if the record- 
type is present and the resulting indicator 
(in Field-Record Relation ) is on. 

This feature provides the programmer 
with the ability to utilize chaining files 


on a selective basis. The function of this 
feature of Field-Record Relation is similar 
to the function of controlling calculations 
by the status of resulting indicators. 

A variation of the use of this function 
of Field-Record Relation is to control two 
chained files with one chaining field. For 
example, the chaining field would be speci¬ 
fied twice on the Input Specifications 
sheet. Each specification line would be 
conditioned by a separate resulting indica¬ 
tor. The particular chained record ob¬ 
tained would depend upon the status (on or 
off) of the appropriate resulting indica¬ 
tor . 


FIELD INDICATORS (65-70) 

This specification is used to test the 
status of a field when it is read into the 
system. Depending upon the status of the 
field — plus, minus, or zero or blank — 
it turns on an indicator that can be used 
to control calculation and output specifi¬ 
cations, or even to stop the processing of 
the object program. 

The entry for the specification is an 
indicator which will be turned on when the 
field specified on the line is plus, minus, 
or zero or blank. 

Field Status Conditions 

Plus. A plus condition occurs when the 
value of a numeric field is greater than 0. 

Minus. A minus condition occurs when the 
value of' the numeric field is less than 
zero. 

Zero or Blank. A zero-or-blank condition 
occurs if a numeric field contains all 
zeros or blanks, or if ah alphameric field 
contains all blanks. It is turned on if 
a numeric field is either +0 or -0 

NOTE: For alphameric fields, columns 65 

through 68 must be blank. 

Types of Indicator Codes Used 


A 2-digit field indicator code is used for 
this specification. These codes, ranging 
from 01 to 99 can be defined one or more 
times on the form. If they are defined 
more than once, the second specification 
of this indicator resets it from the status 
it may have had by the previous specifica¬ 
tion for it. 


51 



NOTE: "Defining" these indicators means 

specifying them on the input form in 
Resulting Indicators or in Field Indicators. 
This should not be confused with "using" 
these indicators. "Using" these indica¬ 
tors means specifying them in Indieators on 
the calculation form or in Output Indica¬ 
tors on the output form as many times as 
required. In the latter case, they are 
merely tested to determine their status 
and not reset by the test. 

Halt Indicators 

There are ten additional indicator codes, 
known as Halt indicators that can be used 
in the RPG program. These indicators — 
designated as HO through H9 — halt the 
processing of the object program when error 
conditions (as determined by the program¬ 
mer) have been detected. These indicators 
can also be used in calculation and output 
specifications sheets to control specifica¬ 
tions and stop processing. For example, 
the status of a field can be tested, and 
depending upon the results of the tests, a 
halt indicator may be set on which will • 
terminate the object program. 

If one of these indicators has been 
turned on during the processing of a rec¬ 
ord, the object program is stopped at the 
completion of the processing of that rec¬ 
ord. However, processing will not be in¬ 
terrupted if a halt indicator that has 
been turned on is turned off (in the pro¬ 
gram) before the program attempts to read 
the next input record. 

The HO indicator is also used by the 
RPG program. A list of the conditions 
that cause the HO indicator to be turned 
on automatically is given in Appendix G. 
Unless the HO indicator is turned off by 
a SETOF operation (See Turning Indicators 
On or Off) in the calculation specifica¬ 
tions, the program will terminate before 
the next input record is read. 


Use of Field Indicators 

The field indicator 07 in Figure 57 is 
used to determine if FLDB contains zeros or 
blanks, and Indicator 06 is used to deter¬ 
mine if the value contained in FLDA is pos¬ 
itive. Indicator 07 and 06 would both be 
used to control functions in the calcula¬ 
tion and output specifications that must be 
altered or modified depending on the status 
of FLDA and FLDB. 

NOTE: Use of Indicators H0-H9 as field 

indicators testing zero or blank (69-70) 
causes the program to terminate as the first 
record is read because any indicators used 
in (69-70) are initialized on. 
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Figure 57. Example of Field Indicators 
Specifications 


How Field Indicators are Turned Off and On 


Indicators used for testing for plus and 
minus conditions, are "set" (turned on or 
off) if their respective conditions occur 
when a record is read into the system. 

Each field indicator is related to only one 
record type. Therefore the indicators are 
not reset (turned on or off) until the re¬ 
lated record type is read again or until 
the indicator number is defined in some 
other specification. One or more field 
indicators can be on at one time. 

Indicators used for testing for blank 
or zero conditions are set in the same 
manner as those used for testing for plus 
and minus conditions. They can, however, be 
reset by one other condition. The output 
specification Blank After causes a field to 
be set to blanks or zeros (depending upon 
whether the field is alphabetic or numeric) 
after it is printed or punched. If the 
field being reset to blanks or zeros is an 
input field that is being tested for zero 
or blank, the field indicator specified for 
it is turned on when the field is set to 
blanks or zeros by the Blank After specifi¬ 
cation. 

Any plus or minus indicators associ¬ 
ated with the field are not turned off by 
virtue of the Blank Af ter specification. 

All zero or blank indicators are initialized 
on at the beginning of the program to re¬ 
flect the initial status of the associated 
fields. (All fields defined in an RPG 
program are initialized to zero if numeric 
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or blank if alphameric.) The indicators 
remain on until the status of the associated 
fields change as a result of an input re¬ 
cord being read or a calculation being 
performed. 

STERLING (71-74) 

Enter in these columns the position in the 
record that contains the sign of the 
Sterling field. If the sign is in the nor¬ 
mal position, enter an S in column 74. 
Leading zeros may be omitted. Leave these 
columns blank if the Sterling specification 
is not used. Additional information on 
Sterling is in Appendix C. Sterling Routines 
for the Report Program Generator. 

SUMMARY OF INPUT SPECIFICATIONS 

This concludes the description of the input 


specifications. Additional information on 
matching or chaining fields may be found in 
Processing Multiple Input Files . The in¬ 
put specifications listed below are used 
with the calculation and output forms. 

The use and function of these specifica¬ 
tions may become more apparent to the 
reader after the descriptions of the cal¬ 
culation and output specifications have 
been read: 


Resulting Indicator 
Field Name 
Control Level 
Matching Fields 
Field Indicators 
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CALCULATION SPECIFICATIONS SHEET 


This sheet is used to specify the opera¬ 
tions to be performed by the object pro¬ 
gram upon the input data and upon data 
obtained as a result of other calculations. 
Two general rules govern the writing of 
calculation specifications: 

1. Each operation is specified on one line 
of the sheet. Operations must be listed 
in the order in which they are to be 
performed in the object program. 

2. Detail calculations must precede all 
total calculations. Calculations with¬ 
in these two groups must be specified 
in the order in which they are to be 
performed on the data. 

The calculation sheet is divided into 
three categories as shown in Figure 58: 

1. When calculations are to be performed. 
These entries (columns 7-17) determine 
when the calculations are to be per¬ 
formed and upon what conditions they 
are to be performed. 

2. What kind of calculations are to be 
performed. These entries (columns 18- 
53) determine the kind of calculations 
to be performed, such as add, subtract, 
multiply, etc. These entries also 
supply information about the result of 
the calculation. 


3. What tests are to be made on the results 
of the calculations. These entries 
(columns 54-59) test the results of the 
calculations to modify subsequent calcu¬ 
lations or output specifications. 


SPECIFYING WHEN CALCULATIONS ARE TO BE 
PERFORMED 

The two specifications in this category are 
Control Level and Indicators. 

CONTROL LEVEL (7-8) 

Calculations are performed at either detail 
time or total time. This specification 
indicates the control level of specifica¬ 
tions performed at total time. An entry 
in Control Level determines when the calcu¬ 
lation specified in positions 18-59 of the 
line is to be performed. 

The entries for this specification are 
the control level indicators Ll through 
L9, and the indicators LO and LR. 

A test for a control change is made 
after each record is read into the system. 
Total calculations are performed after 
this test is made and before the record 
that caused the control change is proc¬ 
essed . 
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Control level indicators are turned on 
by control breaks. Whenever a control 
break occurs, the indicator for the new 
control level and all indicators for the 
lower-order control levels are turned on 
at the same time. A change to control 
level 3, for instance, causes the Indica¬ 
tors L3, L2, and LI to be turned on. 

A control level indicator remains on 
during total time and during the sub¬ 
sequent detail time, which includes both 
the calculating and the printing of the 
detail record. 

If an object program has only detail 
calculations, this specification is left 
blank. The indicators that control detail 
calculations are specified in Indicators 
(Columns 9-17). However, Columns 9-17 
may also be used to control total calcu¬ 
lations. 

The next two paragraphs describe the 
indicators LR (Last Record) and LO (Level 
Zero) . 
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LR (Last Record) Indicator 

This indicator is turned on after the last 
input record has been read and calculated 
and after the appropriate detail lines are 
printed and punched. At this time the 
control level indicators LI through L9 are 
also turned on. 

If there is more than one input file, 
the programmer determines which files are 
to be checked for the last record. This is 
accomplished in the File Description Speci¬ 
fications sheet. 

LR is turned on when all files — with 
an LR specification — have been completely 
read. 


Figure 59. Using Control Level Specifications 


the calculation can take place. It is not 
possible to have an OR condition with this 
specification. 

Enter in columns 10-11, 13-14, and 16-17 
the indicators that determine when the cal¬ 
culation is to be performed. If an indi¬ 
cator must be off, enter an N in either 
column 9, 12, or 15 (whichever is appro¬ 
priate) . 

The specifications used in these columns 
can be arranged into the following categor¬ 
ies : 


LO (Level Zero) Indicator 

The Level Zero indicator is on throughout 
the execution of the object program. It 
is used to specify total calculations to 
be performed at a time when no control 
break has occurred. 

The LO indicator can be used, for in¬ 
stance, to accumulate a total for each 
page of a report, even though there is no 
control break at the end of a page. 

Figure 59 illustrates six control-break 
specifications. 

INDICATORS (9-17) 

The entries in columns 9-17 indicate the 
conditions that control the calculations 
specified in columns 18-59. From one to 
three indicator codes considered to be in 
an AND relationship may be specified. The 
AND relationship means that if three indi¬ 
cator codes are specified, all three indi¬ 
cator conditions must be satisfied before 


1. If columns 9-17 and columns 7-8 are 
blank, the calculation specified on the 
line is performed each time a detail 
record is read. 

2. A resulting-indicator code determines 
the particular record type on which the 
calculation is to be performed. This 
calculation will not be performed on any 
other record type. 

3. A field-indicator code controls the 
calculation according to the status of 
an input field. 

4. A resulting-indicator code controls the 
calculation by conditions that occurred 
on previous calculations. (This feature 
is shown on the Calculation Specifica¬ 
tions sheet (columns 54-59) , but it has 
not been discussed at this time.) 

5. A control-level indicator, L1-L9, used 
with a particular resulting indicator 
permits the calculation to be performed 
at detail time, but it is performed only 
on the first record of the control level 
specified. 
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6. The MR, matching-record, indicator code 
means that the calculation is performed 
only if there is a matching record in 

a second input file. 

7. The halt indicators HO through H9 are 
normally used to terminate the program 
or to suppress a calculation when an 
error has been detected on a pre¬ 
vious calculation. 

8. The overflow indicators permit the 
calculation to take place only if a 
page overflow has occurred. 

9. All total calculations will be bypassed 
until the first control break has 
occurred. 

In addition, this specification entry 
(columns 9-17) may contain a combination 
of some of the preceding categories. Also, 
a calculation may be controlled by the fact 
that an indicator must not be on. 

Figure 60 shows entries that may be 
made in columns 9-17. The numbers to the 
right of the entries refer to the follow¬ 
ing list: 

1. The first example is a blank entry. 

This means that the calculation is per¬ 
formed on every detail record. 

2. In this example. Indicator 16 could be 
a resulting indicator for a specific 
record type. 
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Figure 60. Using Indicators 


3. In this example, Indicator 16 could be 
a resulting indicator, and Indicator 18 
could be a field indicator, which is 
specified on the Input Specifications 
sheet. If Indicator 18 is used to test 
an input field for blanks, this entry 
means, in effect, that the calculation 
would be performed if record-type 16 is 
present and the contents of the field 
represented by Indicator 18 is not 
blank. 

4. This example is similar to the previous 
example. However, Indicator 19 could 
be a resulting indicator turned on by 
the previous calculation. The calcu¬ 
lation specified on this line in columns 
18-59 would not be performed unless 
Indicator 19 was also on. 

5. This entry means that the calculation 
is performed at detail time on control- 
level 1, and only if Indicator 24 is on. 

6. This entry means that the calculation 
is performed only if Indicator 16 is on 
and there is a matching record condi¬ 
tion. For example, when fields from 
detail records are multiplied by a fac¬ 
tor contained in a master record, the 
program must have a way of ensuring that 
the detail record has been matched with 
the appropriate master record. 

7. The entry of NHl prevents the object pro¬ 
gram from performing the calculation if 
an error condition has occurred. Note 
that when an error occurs, the job is 
not terminated until after all process¬ 
ing for the record has been completed. 
This facility is provided so that the 
programmer can prevent the calculation 
of erroneous data. 

8. This entry means that the calculation 
is performed on the detail cycle 
following an overflow condition. 


SPECIFYING THE KIND OF CALCULATION 


This section describes the kind of calcu¬ 
lations to be performed. These specifica¬ 
tions answer the following three questions: 

1. What fields are to be used? 

2. What is the operation (add, subtract, 
multiply, etc.)? 

3. What is done with the result? 

FACTOR 1 (18-27) 

This specification can be a field name 
or a literal. If it is a field name it 
must have been defined on the Input 
Specifications sheet, or it must have been 
defined in the result field of another 
calculation. The field name must be left- 
justified, and the first character must 
be alphabetic. 
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Literal 


7 


A literal is the actual data to be opera¬ 
ted on, rather than a name representing 
the location of data. Literals may be 
numeric or alphabetic. Numeric literals 
may be up to ten characters long. Alpha¬ 
meric literals may be up to eight charac¬ 
ters long. 

Numeric Literals: 

A numeric literal can consist of any com¬ 
bination of the numbers 0-9. One decimal 
symbol and/or one plus sign or one minus 
sign may also be used. 

Rules for Forming Numeric Literals 

1. Blanks must not appear within a numeric 
literal. 

2. The sign, if present, must be the left¬ 
most character. If a literal is un¬ 
signed, it is treated as a positive 
literal. 

3. The decimal symbol can appear anywhere 
in the literal. 

4. Numeric literals must not be enclosed 
in apostrophe symbols. 

Alphameric Literals: 


Any set of consecutive characters enclosed 
in a set of apostrophe symbols is treated 
as an alphameric literal. (The apostrophe 
is a 5,8 punch.) Alphameric literals may 
not be used in arithmetic operations. 

Rules for Forming Alphameric Literals 

1. Any character may be used in an alpha¬ 
meric literal. Blanks are treated as 
valid characters in the body of the 
literal. 

2. Alphameric literals must be enclosed in 
a set of apostrophe symbols. 

3. An apostrophe symbol may be contained 
within a literal by entering two con¬ 
secutive apostrophe symbols within the 
literal. For example, the literal 
o'clock would be coded as 'o"clock'. 

Figure 61 illustrates entries for 
Factor 1. The numbers in circles refer 
to the items listed below. 

1. GROSS could be a field name specified 
on the input sheet. 

2. NETAMT could have been specified as 
the result field of the previous 
calculation. 

3. This numeric literal could be used in 
the program to determine if specific 
fields in the input records were high¬ 
er or lower than this number. The 
position of the decimal symbol must be 
indicated if the number is not a whole 
number. 
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Figure 61. Factor 1 

4. Alphameric literals, like the one in 
this example, can be used to compare 
against a data field in the input 
records to perform certain types of 
calculations only upon records repre¬ 
senting the month of January. 

The description of Factor 1 also applies 
to Factor 2 . 

Summary of Factor 1 and Factor 2 


1. Enter either the name or the literal 
that is Factor 1 or Factor 2 in columns 
18-27 or 33-42. 

2. If Factor 1 or Factor 2 contains the 
name of a field, the field must be de¬ 
fined in either: 

a. Columns 53-58 ( Field Name ) of the 
Input Specifications sheet. 

b. Columns 43-48 ( Result Field) of the 
Calculation Specifications sheet. 

3. A name cannot exceed six characters. 
Special characters and blanks must not 
be used. 

4. A numeric literal cannot exceed ten 
characters; an alphameric literal can¬ 
not exceed eight characters. 

5. Entries in Factor 1 or Factor 2 must be 
left-justified. 

OPERATION (COLUMNS 28-32) 

Entries in these columns specify the 
operations to be performed using Factor 1, 
Factor 2 , and Result Field . Each opera¬ 
tion is specified by placing the operation 
code in Operation (columns 28-32). 


Arithmetic Operations Code 


Add ADD 

Zero and Add Z-ADD 

Subtract SUB 
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Zero and Subtract 

Z-SUB 

Multiply 

MULT 

Divide 

DIV 

Move Remainder 

MVR 

Move Operations 

Code 

Move 

MOVE 

Move Left 

MOVEL 

Move High-to-Low Zone 

MHLZO 

Move Low-to-High Zone 

MLHZO 

Move High-to-High Zone 

MHHZO 

Move Low-to-Low Zone 

MLLZO 

Testing or Compare Operations 

Code 

Compare 

COMP 

Test Zone 

TESTZ 

Branching and Exit Operations 

Code 

Branching (or GOTO) 

GOTO 

Providing a Label for GOTO 

TAG 

Exit to a Subroutine 

EXIT 

RPG Label 

RLABL 

User Label 

ULABL 

Turning Indicators On or Off 

Code 

Set Indicators On 

SETON 

Set Indicators Off 

SETOF 

Table Operations 

Code 

Table Lookup 

LOKUP 

Conversion Routine Operations 

Code 

RPG Conversion Routine 

RPGCV 

End of RPG Conversion 

ERPGC 

External Conversion Routine 

EXTCV 

Record Key 

KEYCV 


Arithmetic Operations 

The fields or literals involved in these 
operations may contain numeric characters 
only. All arithmetic operations are per¬ 
formed with automatic decimal alignment. 
Resulting indicators can be used with all 
arithmetic operations. 

No arithmetic overflow will be sensed by 
RPG. The length of a field involved in 
arithmetic operations can be up to 15 dig¬ 
its (this includes decimal alignment when 
necessary). The resulting field length after 
decimal alignment must not be greater than 
15 digits. 

Add (ADD) 

This operation causes the contents of the 
field or the literal in Factor 2 to be 
added, algebraically, to the contents of 
the field or literal in Factor 1. The 
result of the operation is placed in the 


result field specified in Result Field 
(columns 43-48). 

Zero and Add (Z-ADD) 

This operation causes the field specified 
in Result Field to be set to zeros and then 
causes the data contained in the numeric 
literal or the field in Factor 2 to be 
placed in the Result Field . Factor 1 is 
not used in this operation. 

Subtract (SUB) 

This operation causes the contents of the 
field or literal in Factor 2 to be sub¬ 
tracted, algebraically, from the contents 
of the field or literal in Factor 1. The 
result of this operation is placed in the 
Result Field specified. 


Zero and Subtract (Z-SUB) 

This operation causes the negative of the 
number contained in the literal or the 
field in Factor 2 to be placed in the 
result field specified. This operation is 
performed after the result field has been 
set to zeros. Factor 1 is not used in 
this operation. 


Multiply (MULT) 

This operation causes the contents of the 
field or literal in Factor 1 to be multi¬ 
plied algebraically by the contents of the 
field or the literal in Factor 2. The 
result of this operation is placed in the 
result field specified. 


Divide (DIV) 

This operation causes the contents of the 
field or literal in Factor 1 to be divided 
by the contents of the field or literal in 
Factor 2. The result of this operation 
(quotient) is placed in the specified re¬ 
sult field. The contents of the field or 
the literal in Factor 2 cannot be zero. 

If factor 2 is zero, a program check 
and an abnormal end-of-job will result. 

The following field length restrictions 
apply to this operation: 


L x + (D 2 - D x + D r ) < 15 
L 2 - (D 2 - D x + D r ) ^ 15 

and if half-adjusting is specified 
L x + (D 2 - D x + D r ) ^ 14 
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where 


= length of Factor 1 (dividend) 

L 2 = length of Factor 2 (divisor) 

= decimal positions of Factor 1 
D 2 = decimal positions of Factor 2 
D r = decimal positions of Result Field 

NOTE: Invalid results are obtained if the 

formula is violated. 

Any remainder that results from this 
operation is lost unless the move-remainder 
operation is specified as the next opera¬ 
tion in the program. 

NOTE: If a move-remainder operation fol¬ 

lows a divide operation, the result in the 
divide operation cannot be half-adjusted. 

Move Remainder (MVR) 

This operation is used to move the remain¬ 
der from a divide operation to a separate 
field. If MVR is used, it must immediately 
follow the divide operation. The divide 
may not be half adjusted. Figure 62 shows 


an example of the MVR operation. The re¬ 
mainder is placed in a field named STORE. 
The field that is to contain the remainder 
must be specified in Result Field. 

The value of the remainder can be deter¬ 
mined by the following formula: 

R = (Dividend) - [(Divisor) x (Quotient)] 

For the above equation to be valid in a 
divide operation involving factors contain¬ 
ing decimal positions, the result field 
that is to contain the remainder must pro¬ 
vide for the decimal positions in the re¬ 
mainder based on the sum of (d2 + d r ) or 
d-^, whichever is greater. 

Move Operations 


For the MOVE and MOVEL operations, numeric 
fields may be changed to alphameric fields 
and alphameric fields may be changed to 
numeric fields. To change a numeric field 
to an alphameric field. Factor 2 is numer¬ 
ic, and the result field is specified as 
alphameric. To change an alphameric 
field to a numeric field, Factor 2 is 
alphameric, and the result field is speci¬ 
fied as numeric. No decimal alignment is 
performed when a move operation is used. 

Resulting indicators can be used with 
all move operations. 
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Figure 62. Using MVR Operation Code 
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Move (MOVE) 

This operation code causes data characters 
(starting at the rightmost position) to be 
moved from the field or literal contained 
in Factor 2 to the rightmost positions of 
the result field. 

If Factor 2 is longer than the result 
field, the excess leftmost positions of 
Factor 2 are not moved as illustrated in 
Figure 63. 

If the result field is longer than the 
field specified by Factor 2, the positions 
to the left of the data that is moved 
remain undisturbed as illustrated in 
Figure 64. 

Factor 1 is not used in this operation. 
Move Left (MOVEL) 

This operation code causes data characters 
(starting at the leftmost position) to be 
moved from the field or literal contained 
in Factor 2 to the leftmost positions of 
the result field. 

If Factor 2 is longer than the result 
field, the excess rightmost positions of 
Factor 2 are not moved. 

If the result field is longer than the 
field specified by Factor 2, the positions 
to the right of the data that is moved 
remain undisturbed. When moving data to 
a numeric field, the sign of the result 
field is retained except when Factor 2 is 
as long or longer than the Result Field. 

In this case, the sign of Factor 2 is 
assumed. Factor 1 is not referenced in 
this operation. 


Before Move 
Operation 


Result Field Factor 2 



Figure 63. Move Operation — Factor 2 
Longer than Result Field 


Before Move 
Operation 

Result Field Factor 2 



Figure 64. Move Operation — Factor 2 
Shorter than Result Field 


Figure 65 shows a use of this operation 
code. FLDA contains a five-position number 
(10000). FLDB is a four-position field. 

The result of the MOVEL is 1000 in FLDB. 

In this example, the MOVEL operation code 
performs the same function as dividing 
FLDA by 10. Three examples in Figure 66 
provide additional examples of the opera¬ 
tion. 

Move High-To-Low Zone (MHLZO) 

This operation moves the zone at the left¬ 
most position of Factor 2 to the rightmost 
position of the result field. 

Figure 67 illustrates the movement of 
zones for all four move zone operations. 

Factor 2 can only be alphameric. If 
the zone to be moved is located over 
numeric data, this operation can still be 
performed; however, the numeric field must 
have been specified as an alphameric field 
on the Input Specifications sheet. 

The result field can be numeric or 
alphameric. A result field specified as 
numeric contains an F zone for a plus 
sign or a D zone for a minus sign after 
this operation. 

Figure 68 illustrates a Move High-to-Low 
Zone operation (alphameric to alphameric). 

Move Low-To-High Zone (MLHZO) 

This operation moves the zone at the right¬ 
most position of Factor 2 to the leftmost 
position of the result field. Factor 2 
can be numeric or alphameric, but the 
result field must be alphameric. 
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Figure 65. Using the MOVEL Operation Code 
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Figure 66. Additional Functions of the MOVEL Operation 
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Figure 67. Move Zone Operations 


Move High-To-High Zone (MHHZO) 

This operation moves the zone at the left¬ 
most position of Factor 2 to the leftmost 
position of the result field. Factor 2 
and the result field must be alphameric. 


Move Low-To-Low Zone (MLLZO) 

This operation moves the zone at the right¬ 
most position of Factor 2 to the rightmost 
position of the result field. Factor 2 
and the result field are alphameric or 
numeric. A result field specified as 
numeric contains an F zone for a plus sign 
or a D zone for a minus sign after this 
operation. 


Testing or Compare Operations 
Compare (COMP) 

This operation causes the contents of the 
field or the literal in Factor 1 to be 
compared against the contents of the field 
or literal in Factor 2. The outcome of 
this operation can be used to turn on an 
indicator that has been specified in 
columns 54-59 ( Resulting Indicators High, 
Low, or Equal) . These indicators are 
turned on as follows: 

High: Factor 1 is greater than Factor 2. 
Low: Factor 1 is less than Factor 2. 

Equal: Factor 1 is equal to Factor 2. 
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This operation is used to make com¬ 
parisons to alter or modify subsequent 
calculations. No result field is speci¬ 
fied. 
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Figure 68. Move High—to—Low Zone 
Operation 


• The Factor-1 and Factor-2 fields are 
aligned according to whether they are 
numeric or alphameric. If numeric 
fields are compared, fields of unequal 
length are aligned to the implied 
decimal point. 

• Missing digits in numeric fields are 
assumed to be zeros. 

• If alphameric fields are compared, 
fields of unequal length are aligned 
to their leftmost characters and the 
unused positions are filled with blanks. 

• The alphameric compare operation is 
based upon the internal collating 
sequence of the system. 

• For equal alphameric fields, the max¬ 
imum field length is 256 characters. 

• For unequal alphameric fields, the 
maximum field length is 200 characters. 

• An alphameric field and a numeric field 
should not be compared because the 
results of such a comparison are un¬ 
predictable . 


All numeric comparisons are algebraic. 
An absolute comparison can be performed 
by means of a short routine programmed to 
meet the user's requirements. Figure 69 
shows an example of comparing the absolute 
value of a sum to a literal. 
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Figure 69. Example of an Absolute Compare Routine 
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Test Zone (TESTZ) 


This operation is used to test the zone of 
the leftmost position of the alphameric 
field that is entered in the result field. 
The format of a Test Zone operation is 
shown in Figure 70. 

If the result of the test is a 12-zone 
(&, A through I, 0) , the indicator specifi¬ 
ed in columns 54-55 will be turned on. If 


the result of_the test is an 11-zone (-, 

J through R, 0), the indicator specified in 
columns 56-57 is turned on. Any other zone 
turns on the indicator specified in columns 
58-59. 

Figure 71 shows an example of this oper¬ 
ation. When Indicator 25 is on, the field 
DATA is tested. If the leftmost position 
has a 12-zone, Indicator 01 is turned on. 

If the position has an 11 zone, Indicator 02 
is turned on. 
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Figure 70. Format of the TESTZ Operation 
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Branching and Ex i t Operations 

Exit to a Subroutine (EXIT) 

This operation code enables the program¬ 
mer to transfer control from the RPG pro¬ 
gram to a user subroutine. Factor 2 con¬ 
tains the name of the subroutine. The 
name of the subroutine cannot be greater 
than six alphameric characters; the first 
character must be alphabetic. Factor 1 
and the Result Field are not used. See 
EXIT to a User’s Routine for a complete 
discussion of this operation. 

RPG Label (RLABL) 

This operation provides the facility for 
a subroutine, external to the RPG program, 
to reference a field in the RPG program. 

The name of the field to be referenced is 
entered in Result Field. 

The field must be a valid numeric or 
alphameric field, an indicator, or a table. 
The use of an indicator or table as an 
RLABL is explained in the section Using 
Tables and Exit Routines in the Object 
Program. 

Field length and decimal position must 
be defined in (unless defined by a pre¬ 
ceding entry in either the input or calcu¬ 
lation specifications) the Result Field of 
a RLABL entry. The field name may be from 
one to six alphameric characters. The 
first character must be alphabetic. Indi¬ 
cators , Factor 1 , and Factor 2 are not 
used. 

User's Label (ULABL) 

This operation enables the RPG program to 
reference a field contained in a user sub¬ 
routine. The name of the field to be 
referenced is entered in Result Field. 

This name may be from one to six alphameric 
characters; the first character must be 
alphabetic. Indicators , Factor 1, and 
Factor 2 are not used. The field length 
must be defined. 

Branching or Go To (GOTO) 

The operation code GOTO enables branching 
to occur in the object program. This means 
leaving one point in the program to begin 
operations at some other location in the 
program. The location of the other routine 
is identified by a name. This name is 
entered in Factor 2 and the code GOTO is 
entered in Operation (columns 28-32). For 
example, a routine (a group of specifica¬ 
tions) to calculate the employee contribu¬ 
tion to the Federal Insurance Contribution 
Act might be labeled FICA. Branching to 
this routine would require that Factor 2 
of the GOTO operation contains the name 
FICA and that the first operation in the 


routine be a TAG operation, that is, an 
operation that defines the name of the 
routine being branched to (refer to de¬ 
scription of next operation code). 

Branching can be performed within detail 
calculations or within total calculations, 
but not between detail and total calcula¬ 
tions. Branching can be forward — skip¬ 
ping over specifications — or backward — 
going back to specifications previously 
skipped or processed. 

If GOTO occurs at total time. Control 
Level (Columns 7 and 8) of the specifica¬ 
tion must have a control level specifica¬ 
tion (LI through L9, LO, or LR) . If it 
occurs at detail time, a control specifi¬ 
cation is not required. Factor 1 and the 
Result Field are not used in this opera¬ 
tion. 

For additional information see Using the 
Calculations Sheet. 

Providing a Label for GOTO (TAG) 

The operation TAG provides a name to which 
the program can branch. Enter this name 
in Factor 1 and the code TAG in Operation 
(columns 28-32). The name will be used as 
Factor 2 of the operation code GOTO. 

If the TAG operation occurs at total 
time, Control Level (columns 7 and 8) of 
the specification must have a control level 
specification (Ll through L9, LO, or LR) . 

If it occurs at detail time, a control 
specification is not required. Factor 2 
and the Result Field are not used. 


Turning Indicators On or Off 
Set Indicators On (SETON) 

This operation code causes the indicators 
specified in columns 54-55, 56-57, or 
58-59 to be turned on. 

NOTE: The column headings of Plus , Minus, 

or Zero and High, Low, or Equal have no 
meaning during this operation and should 
be ignored. Columns 54 through 59 are 
used — for this operation code — merely 
to record three sets of indicator codes. 

Specify the first indicator in columns 
54-55, the second indicator in columns 
56-57, and the third indicator in columns 
58-59. One use of this specification is to 
turn on a halt indicator when input records 
are out of sequence. Any RPG indicator, 
except LO and 00, can be turned on. Figure 
72 shows an example of this facility. The 
01 is an indicator that is set on for the 
first record of a sequence. The L3 is a 
control level that occurs with the first 
record of the sequence. If such a situa¬ 
tion (L3 and 01) does not occur, the Halt 
Indicator Hi is turned on. 
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Set Indicators Off (SETOF) 

This operation code causes the indicators 
specified in columns 54-55, 56-57, or 58- 
59 to be turned off. Any RPG indicators, 
except L0 and 00, can be turned off. 

For example, when an L3 break occurs, 
L1-L3 are turned on. If the user did not 
want LI on, he could have turned it off by 
using the SETOF operation code. 

Table Operations 

Table Lookup (LOKUP) 

Table Lookup allows the RPG program to 
look up a table contained in core storage 
and procure from it specific data needed 
in the calculations. A table may consist 
of a set of arguments or a set of func¬ 
tions. Tables may be arranged in either 
ascending or descending sequence, or they 
may be out of sequence. 

All tables used in an RPG program are 
loaded into core storage at program object 
time. They are loaded into the program in 
the same sequence that they appear on the 
File Extension sheet. 

The LOKUP operation code causes the con¬ 
tents of the field or literal contained in 
Factor 1 to be used as the search argument. 
Factor 2 contains the.name of the argument 
table to be searched, and the Result Field 
contains the table name from which the as¬ 
sociated function will be obtained. Deci¬ 
mal alignment is not performed for this 
operation. (The Res u lt Field may be left 
blank if the associated function is to be 
located but not retrieved from the table.) 

The use of two Resulting Indicators 
causes the RPG program to look up that 
table entry that is high or equal, or low 


or equal in relation to the search argu¬ 
ment. 

After the lookup operation is com¬ 
pleted, the function that is retrieved 
is placed in a special holding area 
for the function table. The name of 
this area is the same as the name of 
the function table . 

To utilize the function in another 
operation (for example in an arithmetic 
operation), the name of the function table 
is specified in Factor 1 or Factor 2. In 
this case, the function table name (in 
Factor 1 or Factor 2 ) refers to the special 
holding area in the function table. 

To update the function table (for exam¬ 
ple, a move operation to replace the old 
function with the new updated function) the 
name of the function table is specified in 
the Result Field . The new function is then 
placed in its proper place in the function 
table and in the special holding area. 

After each table lookup operation, the 
retrieved function should be used (or moved 
from the special holding area to another 
location) before the next table lookup 
operation is performed. Each subsequent 
lookup operation overlays the function 
obtained from the previous lookup opera¬ 
tion. 

See Using Tables in the Object Program 
for additional information and examples of 
table lookup operations. 

Conversion Routine Operations 
RPG Conversion (RPGCV) 

This operation code is used to indicate 
that the track-address conversion routine 
is coded on the RPG Calculation Specifica¬ 
tions sheet. Factor 1 contains the name 
(label) of the conversion routine. This 
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name must also be specified on the File 
Extension sheet in columns 27-32. The Re¬ 
sult Field contains the name of the field 
that contains the track address. This 
field must be alphameric and have a length 
of 8. Indicators and Factor 2 are not 
used. 

End of RPG Conversion (ERPGC) 

This entry terminates the conversion-step 
entries that have been coded on the Calcu¬ 
lation Specifications sheet. No other 
entries are necessary. 

Indicators, Factor 1, Factor 2 , and 
Result Field are not used. 


External Conversion Routine (EXTCV) 

This entry is used to indicate that the 
track-address conversion routine is exter¬ 
nal to the RPG language. 

Factor 1 contains the label specified 
on the File Extension sheet in columns 
27-32. 

The Result Field contains the name of 
the field that will contain the track ad¬ 
dress. This name is defined in the RPG 
program by this operation and must not be 
defined in the external routine. The field 
must be alphameric and must have a length 
of 8. 

Factor 2 must contain the name of the 
external conversion subroutine that the 
RPG program branches to. The specification 
Indicators is not used. 

Record Key (KEYCV) 

This operation code establishes the name 
of the field that is to contain the key 
of the disk record. (It is used only when 
records are retrieved using record key 
data.) The code KEYCV is placed in Opera¬ 
tion (columns 28-32) and the name of the 
field is placed in Result Field (columns 
43-48). The field length and decimal posi¬ 
tions must be specified if the field has 
not been defined previously. Indicators , 
Factor 1 , and Factor 2 are not used. 

The operation must follow the RPGCV or 
EXTCV operation. The name of the field 
that will contain the record key is de¬ 
fined in the RPG program by this operation 
and must not be defined in the external 
conversion routine. 

Table 1 is a summary of the specifica¬ 
tion entries required for some of the 
operation codes just described. The only 
operation codes listed are those for which 
the format and required entries may be the 
most difficult to remember. 


RESULT FIELD (43-48) 

This specification sets up a location in 
storage to contain the result of a calcu¬ 
lation. The name of the result field can 
be alphameric and must be left-justified. 

It must not contain blanks, or special 
characters and the first character must be 
alphabetic. The sign for arithmetic fields 
is always stored in the units position of 
the result field. 

The same name can be used several times 
in different calculations if the length of 
the field and the number of decimal posi¬ 
tions are the same for all calculations. 

Figure 73 illustrates Result Field speci¬ 
fications. On the first line GROSS is mul- 
tipled by DRATE and the result field is 
established as DISCNT. This result field 
is then used as Factor 2 on the next speci¬ 
fication to calculate a net amount. This 
same result field is then used as Factor 1 
on the next specification line to calculate 
total discount. 


FIELD LENGTH (49-51) 

This entry specifies the length of the 
result field. The entry must specify the 
number of positions to be reserved for the 
result field. In Figure 73, DISCNT is eight 
positions long. The unpacked length must 
be specified. The maximum numeric field 
length is 15 digits, and the maximum alpha¬ 
meric field length is 256 characters. 

If the same field name is used for more 
than one calculation and the field length 
and number of decimal positions are the 
same, the field-length specification and the 
decimal-position specification need be 
specified only for the first specification 
it is used with. 

If the result field is longer than the 
number of positions specified for it, the 
excess leftmost positions are lost. 

NOTE: If half-adjustment is specified, 

the field length entry refers to the length 
of the result field after half-adjustment. 

DECIMAL POSITIONS (52) 

An entry in this column indicates the 
number of positions to the right of the 
decimal symbol in the result field. An 
entry must be made in this column for all 
arithmetic operations if the field has not 
been defined previously. If the result 
field does not have any decimal positions, 
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Table 1. Summary of Operation Specifications 


O = Optional R = Kequired b -blank 


Operation 

Control 

Level 

Indicators 

Factor 

1 

Operation 

Factor 

2 

Result 

Field 

stssi 

Decimal 

Positions 

Half 

Adjust 

Resulting 

Indicators 

Compare 

O 

O 

R 

COMP 

R 

b 

a 

b 

m 

R 

Test Zone 

O 

o 

b 

TESTH 

b 

R 

R 

R 

m 

R 

Exit to a Subroutine 

O 

o 

m 

EXIT 

R 

b 

b 

b 

n 

b 

RPG Label 

O 

b 

a 

RLABL 

b 

R 

O 

O 

n 

b 

User's Label 

O 

b 

a 

ULABL 

b 

R 

R 

R 

n 

b 

Branching or GOTO 

O 

o 

m 

GOTO 

R 

b 

b 

b 

b 

b 

Providing a Label for GOTO 

0 

b 

R 

TAG 

b 

mm 

b 

b 

m 

b 

Set Indicators ON 

O 

o 

b 

SETON 

b 

■ 

b 

b 

m 

R 

Set Indicators OFF 

O 

0 

b 

SETOF 

b 

b 

b 

b 

b 

R 

Table Lookup 

O 

o 

R 

LOKUP 

R 

O 

O 

0 

b 

R 

RPG Conversion 

O 

b 

R 

RPGCV 

b 

R 

R 

R 

b 

b 

End of RPG Conversion 

o 

b 

b 

ERPGC 

b 

b 

b 

b 

b 

b 

External Conversion Routine 

O 

b 

R 

EXTCV 

R 

R 

R 

R 

m 

b 

Record Key 

o 

b 

b 

KEYCV 

b 

R 

O 

O 

m 

b 


the entry must be a 0. A maximum of nine 
decimal positions can be specified. 

This specification is the only entry 
required to determine the number of decimal 
places in a calculated result. (The deci¬ 
mal point of input fields is specified on 
the input specifications.) The object pro¬ 
gram considers the number of decimal pos¬ 
itions in both factors of an arithmetic 
operation and automatically "shifts" the 
factors or the results to provide the 
correct number of decimal positions. 

In Figure 73 each result field has two 
decimal positions. 

If the result field is alphameric, this 
column must be left blank. 


HALF ADJUST (53) 

This specification is used to half-adjust, 
or round, the result field. Enter an H 
in this column if the data in the result 
field is to be half-adjusted. 

Half-adjusting is accomplished in the 
object program by adding an absolute value 
of 5 to the right of the last position 
retained in the result field. 

In Figure 73, DISCNT is half-adjusted. 


If the result field is an alphameric 
field, this specification must be left 
blank. 

If the number of decimal positions in 
the arithmetic result is less than or 
equal to the decimal positions specified 
for the pertinent result field, the half¬ 
adjustment specification has no effect. 

This completes the description of the 
specifications required for determining 
the kind of calculations to be performed. 


TESTING THE RESULTS OF CALCULATIONS 

The last category of specifications for 
the calculation form is Resulting Indica- 
tors. 


RESULTING INDICATORS (54-59) 

This specification may be used to test 
the value of a result field after the 
completion of an operation. As the result 
of this test, an indicator is turned on 
which can be used to control subsequent 
calculation operations or to control out- 
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Figure 73. Result Field Entry- 

put operations. The specification is used 

in five ways: 

1. To determine Whether the result of an 
arithmetic operation is plus, minus, 
or zero. (In the case of half-adjust¬ 
ment, the resulting indicator refers 
to the result after half-adjustment.) 

2. To test the result of a compare opera¬ 
tion to determine if: 

Factor 1 > Factor 2 — High 

Factor 1 < Factor 2 — Low 

Factor 1 = Factor 2 — Equal 


3. To define the type of LOKUP operation 
to determine: 

a. If the argument next-higher than the 
search argument is found. 

b. If the argument next-lower than the 
search argument is found. 

c. If the argument equal to the search 
argument is found. 

NOTE: If an equal-search resulting 

indicator is specified, it takes pre¬ 
cedence over either high or low indi¬ 
cators if an equal-table value exists. 

4. To define a TESTZ operation as to what 
type of zone is to be tested. 

5. To define SETOF and SETON operations as 
to what indicators are to be turned off 
or on. 

The entries for this specification can 
be any of the indicator codes 01 through 
99 and the halt indicators HO through H9. 
They can be defined one or more rimes on 
the form. If these indicators are defined 
more than once, a subsequent specification 


of the indicator resets it from the status 
it may have had by the previous specifica¬ 
tion for it. 


NOTE: "Defining" these indicators means 

specifying them as resulting indicators or 
field indicators in the input specifica¬ 
tions, or as resulting indicators in the 
calculation specifications. This should 
not be confused with "using" these indi¬ 
cators. "Using" these indicators means 
specifying them in Indicators on the calcu¬ 
lation form or in Output Indicators on the 
output form as many times as required. In 
the latter case they are merely tested to 
determine their status and are not reset 
by the test. 

NOTE: Resulting indicators are not reset 

(turned on or off) until the next time a 
calculation is performed for which the 
program specifies the indicator as a 
resulting indicator. This means that one 
or more resulting indicators can be on at 
one time. 

NOTE: An indicator specified in columns 58- 

59 (Zero or Blank) for ADD, Z-ADD, SUB, 
Z-SUB, MULT, DIV, MVR, MOVE, and MOVEL is 
initialized on. 

A resulting indicator used to test for 
a zero balance can be reset by one other 
condition. The output specification Blank 
After causes a numeric field to be set to 
zeros after it is printed or punched. If 
this field is also a Result Field being 
tested for zero, the resulting field indi¬ 
cator specified is turned on when the field 
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Table 2. How Resulting Indicators are Turned On 




Columns 54-55 

Columns 56-57 

_ 

Columns 58-59 

PLUS 

HIGH 

MINUS 

LOW 

ZERO 

OR BLANK 

EQUAL 

Arithmetic 

Operation 

If the 

Result Field 
has a : 

Plus 

Value 

(Except o ) 

- 

Minus 

Value 
(Except 5) 

- 

Zero 

Value 
( & And 5) 


Table 

Lookup 

If the 

table argument 
is : 

- 

Next higher 
than the 
search 
argument 

- 

Next lower 
than the 
search 
argument 

- 

Equal to 
the 

search 

argument 

Compare 

Operation 

If factor 1 
is : 

- 

Greater than 
factor 2 

- 

Less than 
factor 2 

- 

Equal to 
factor 2 


is set to zeros by the Blank After specifi¬ 
cation. If the field is also a result 
field being tested for plus or minus, the 
resulting field indicators specified are 
not turned off when the field is set to 
zeros by the Blank After specification. 

Table 2 illustrates the various condi¬ 
tions that cause resulting indicators to 
be turned on. 

On the first line in Figure 74, DISCNT 
is subtracted from GROSS and the result is 
stored in NETAMT. If the answer is a minus 
number, Indicator 10 is set on. If the 
answer is zero. Indicator 15 is set on. 


On the second line in Figure 74, the 
literal JANUARY is compared against the 
contents of DATE. If the result is equal. 
Indicator 24 is turned on. 

COMMENTS (60-74) 

Positions 60 through 74 of the form are 
not required by the program. Data placed 
in these positions will be printed as a 
separate field during the compilation of 
the object program. An asterisk in column 
7 is not required if this type of comments 
is in a line containing specifications. 


IBM 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM System/360 


Graphic 


n 






Punch 









m 


75 76 77 78 79 


3 4 5 

E 

6 

Control Level (*-0-L9, 

CO IR) 

Indicators 

Factor 1 

18 19 20 21 22 23 24 25 26 27 

Operation 

28 29 30 31 32 

Factor 2 

33 34 35 36 37 38 39 40 41 42 

Result Field 

43 44 45 46 47 48 

Field ‘ 

49 50 51 5 

"T— 

< 

2 53 

Resulting 

Indicators 

Comments 

60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 



§§ 

1 

1 

1 


Hsf-l 

00 

iBI 

m 


n 

91 

IBS 



fl 




■ 

GROSS 

mm 

am 


mm 

in 

i 

0F> 

33 



B 





mrfTJfTVMM 

COMP 

OATE 



IB 



W. 


mm 

B 





■ 




■i 

IB 






Figure 74. Result Field Indicators 
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USING THE CALCULATION SPECIFICATIONS SHEET 

Figure 75 illustrates entries on the Cal¬ 
culation Specifications sheet that are 
used in part of a payroll application. 

The entries on the sheet are discussed by 
line number. 

NOTE: The blank spaces signify that addi¬ 

tional calculations have been specified, 
but in this example they have been omitted. 

Line 

Number Explanation 

01 The program branches to GRSPAY 

from some other detail calcula¬ 
tion (not shown in this example). 

02 The number of hours the employee 

worked is compared with the 


literal 40. If the employee 
worked more than 40 hours. Indi¬ 
cator 20 is turned on. If the 
employee worked less than 40 
hours. Indicator 22 is turned on. 

03- If Indicator 20 is on, three 

05 calculations are performed. The 

literal 40 is subtracted from 
the number of hours worked, and 
the overtime hours are placed in 
the field OVERHR, which is a 
three-position field with one 
decimal position. RATE is multi¬ 
plied by OVERHR and the result is 
placed in the field SAVE, which 
is a six-position field with two 
decimal positions. SAVE is multi¬ 
plied by the literal 1.5 (which 
is the overtime premium rate) . 

The result is placed back in SAVE, 
and it is half-adjusted. 


INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM System/360 


3 4 5 6 7 

0 1 <t) c 


Indicators 

And And 

_l_i_ 

Z 

9 10 11 

Z 

12 13 14 

Z 

15 16 17 







20 



2d> 



20 



N22 



N22 



N22 


















21 



















HOURS 

HOURS 

RATE 

SAVE 


27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 

TAG 

COMP _ 2022 _ 

SUB H-0 _ OVERHR _3i_ 

MULT OVERHR SAVE 62H 

MULT j .5 _ SAVE _ H __ 

MULT *0 _ GROSS _ 62 H _ 

ADD GROSS GROSS 


GOTO j FJCA j j 

(ADD1710NAL CALCULATIONS) 


PICA 

TAG 

■ 


GROSS 

MULT 

.03 

DFICA 

YDFICA 

ADD 

DP 1C A 

HOLD 

HOLD 

COMP 

1HH.00 



goto 

ADFICA 


1*1.00 

SUB 

YDFICA 

DFICA 

ADFICA 

TAG 



YDFICA 

ADD 

DFICA 

Tdfica 


(ADDITIONAL CALCULATION 

WHTAX 

TAG 




Resulting 

Indicators 

Plus 

Minus 

Blank 

| Compa 

re 

High 

1 >2 

1 < 2 

i q = 2 

54 55 

56 57 

58 59 




20 

22 

































21 

21 




















Figure 75. Using the Calculation Specifications Sheet 
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Line 


12 

DFICA is added to YDFICA and the 

Number 

Explanation 

13 

result is placed in the field 

HOLD. 

The contents of HOLD are compared 

06 

RATE is multiplied by 40 , and the 
result is stored in GROSS. This 
operation is performed whether or 
not the employee worked any over¬ 


with the literal 144.00, and if 
HOLD is less than, or equal to, 
144.00, Indicator 21 is turned on 


time. It is not performed if the 
employee has worked less than 40 
hours. 

14 

15 

If Indicator 21 is on, the pro¬ 
gram branches to the label ADFICA 

YDFICA is subtracted from the 

07 

GROSS is added to SAVE if Indi¬ 
cator 22 is off. 


literal 144.00 and, the result is 
placed in DFICA. 

08 

The program branches to the label 
FICA if Indicator 22 is off. 

16 

The operation TAG provides the 
label ADFICA to which the program 
can branch (either from the speci¬ 

09 

Additional calculations. 


fication on line 14 or sequen¬ 
tially from the specification on 

10 

The operation code TAG provides 
the label FICA. The RPG program 


line 15). 

11 

branches to this label. 

GROSS is multiplied by the literal 

17 

DFICA is added to YDFICA and the 
result is stored in YDFICA. 


.03 and the result is placed in 
the field DFICA, which is a six- 

18 

Additional calculations. 


position field with two decimal 
positions. The result is half- 
adjusted. 

19 

The operation code TAG provides 
the label WHTAX to which the RPG 
program can branch. 


72 



OUTPUT-FORMAT SPECIFICATIONS SHEET 


This form specifies the kind of output 
files to be produced and the location of 
the specific data fields in the output 
reports and records. 

GENERAL INFORMATION 

The specifications for this form can be 
divided into two categories as illustrated 
in Figure 76: file identification and con¬ 
trol (columns 7-31), and field description 
(columns 23-74). 

File Identification and Control. These 
specifications~Tdentify the output reports 
and/or punched card files. They direct 
card files to the appropriate stackers and 
provide the correct spacing on printed 
reports. They determine under what con¬ 
ditions the file is to be produced. 

Field Description. These specifications 
indicate where and when the individual out¬ 
put fields are to be punched, printed, or 
stored in an output file. The entries for 
these specifications are written on the 
line below the file identification entries. 
Each field is described on a separate line. 


The reader should note that the speci¬ 
fication Output I ndicators is used for both 
file identificatiorT and field description. 
The facility of controlling the printing 
and punching of each specific field of the 
record provides a great amount of program 
flexibility in RPG. 

Specifying Output Units 

When writing the output format specifica¬ 
tions, it is not necessary to indicate the 
specific output units used in the program. 
The I/O unit used for each file is speci¬ 
fied in the File Description sheet. Each 
file name therefore is related to a speci¬ 
fic output unit. By merely writing the 
file name on the output form, the output 
unit has, in effect, been specified. 


FILE IDENTIFICATION AND CONTROL 
FILENAME (7-14) 

A file name is assigned to each output 
file. The file name must be left-justi¬ 
fied, and it must begin with an alphabetic 
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Figure 76. Output-Format Specifications Sheet 
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character. The file name may be alpha¬ 
meric, but it must not contain special 
characters or blanks. 

When writing the output specifications, 
the file name need only be entered once. 
Enter it on the first line to define the 
file as shown in Figure 77. 

TYPE H/D/T (15) 

The entry in this column identifies the 
type of record being specified. The fol¬ 
lowing three entries are used for this 
specification: 

H — Heading Record 
D — Detail Record 
T — Total Record 


HEADING RECORDS : These records usually 
contain constant information. However, 
they may also contain information from in¬ 
put records, including the record present 
at the time the output record is produced. 

DETAIL RECORDS: These records have a 
direct relationship to the input record. 



Figure 77. Specifying Heading, Detail, 
and Total Lines 
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Most data in a detail record comes from the 
input record or from calculations performed 
at detail time. 

TOTAL RECORDS: Operations upon fields from 
the input record are preceded by the test 
for control-field changes, the performance 
of total-time calculations, and the forma¬ 
tion of total records. Thus, data from an 
input record that causes a control-field 
change cannot contribute data to total rec¬ 
ords that result from that control change.' 
But heading and detail records can contain 
data from the input record. 

STACKER SELECT (16) 

If punched output occurs in the object pro¬ 
gram, a stacker number is entered in this 
column. The cards fall in the stacker that 
is indicated by this column. The stacker 
pockets and their acceptable codes are 
listed in Figure 78. 

SPACE (17-18) 

This specification (and the next specifica¬ 
tion Skip , columns 19-22) is used to pro¬ 
vide the proper spacing of printed reports. 

NOTE: If the record is to be printed, at 

least one entry is required in columns 
17-22. 

Space Before (Column 17) 

Enter in this column the number of lines 
to be spaced before the line is printed. 
Specify zero, one, two, or three spaces 
before printing by placing the entry 0, 1, 

2, or 3 in column 17. If this column is 
left blank, no spacing before printing 
will be provided. 



Figure 78. Summary of Stacker Select Speci¬ 
fications (Output) 




Space After (Column 18) 

Specify zero, one, two, or three spaces 
after printing by placing the entry 0, 1, 

2, or 3 in column 18. A blank in this col¬ 
umn will provide single spacing after print¬ 
ing a line. 

SKIP (19-22) 

This specification provides for the proper 
spacing of reports. It is directly related 
to the function of the printer carriage- 
control tape. 

Skip Before (Columns 19-20) 

The entries 01-12 cause the printer car¬ 
riage to skip to channels 1 through 12 of 
the carriage tape before the line is print¬ 
ed. In Figure 77, before the heading line 
is written, the form skips to channel 1. 

Skip After (Columns 21-22) 

The entires 01-12 cause the printer car¬ 
riage to skip to channels 1 through 12 of 
the carriage tape after the line is printed. 

NOTE: The order in which spacing and skip¬ 

ping is performed is as follows: 

Skip Before 
Space Before 
Skip After 
Space After 

Overflow Indicator 

Carriage overflow, or the line number asso¬ 
ciated with channel 12 in the Line Counter 
Specifications sheet, cause the setting of 
the indicator as specified by the user in 
the File Description Specifications (columns 
33-34). 

When a punch in channel 12 of the control 
tape is sensed or the line counter has 
reached the specified line number, the over¬ 
flow indicator is turned on. It remains on 
for one complete processing cycle; it turns 
off after the heading and detail lines of 
the next record are printed. Because the 
overflow indicator is on during calcula¬ 
tions, it can control calculation specifica¬ 
tions. 

A test for the overflow status is made by 
the object program immediately before each 
line of the report is printed (but after any 
Space Before specifications are executed). 
Two conditions can occur at this time: 

1. If the overflow indicator is on before a 
detail line is printed, the detail line, 
and any other detail lines whose output 
indicators are on, are printed. 

Any Space After specifications are 
executed, the next record is read, and a 
test is made to determine if a control 
break has occurred. If one has occurred, 
all total lines (caused by the control 


break) are printed, and then any overflow 
printing specified is performed. 

2. If the overflow indicator is on before a 
total line is printed, all total lines, 
whose output indicators are on, are 
printed. This is followed by any speci¬ 
fied overflow printing. 

Automatic Skipping 

If an overflow indicator is not specified as 
one of the first three indicators (columns 
23-31 of Output Specifications) for any line 
of a print file, then the RPG compiler pro¬ 
vides the object program with automatic 
skipping from channel 12 to channel 01 on 
that file. 

Printing Lines Conditioned by Overflow 

If an output heading line is coded as in 
the upper half of Figure 79, the heading 
line will print whenever the OF or Ll indi¬ 
cator is on. If Ll and OF occur at the 
same time during processing, the line 
prints twice, thus possibly providing an 
error in the printed report. To prevent 
this situation the line is coded as shown 
in the lower half of Figure 79. By making 
the condition mutually exclusive (both con¬ 
ditions can cause the skip — but not at 
the same time), the line is not printed 
twice. 

The order in which the object program 
prints lines conditioned by overflow fol¬ 
lows : 

1. When overflow occurs during the printing 
of a heading or detail line, the object 
program does not print lines conditioned 
by overflow. The program does, however, 
take note that the overflow condition 
has occurred. 

2. Total lines not conditioned by overflow 
are printed. 

3. The object program then tests to see if 
overflow has occurred. 

4. Total lines conditioned by overflow are 
then printed. 

5. Heading and detail lines conditioned by 
overflow are then printed. 


NOTE: If an overflow condition has been 

specified, automatic skipping is not per¬ 
formed. 


Multiple Printers 


With this program it is possible to use a 
maximum of eight output printer files for 
each RPG object program. When producing 
records for more than one printer, the 
user must specify the printer on which the 
overflow condition occurs. 

In columns 33-34 of the File Descrip¬ 
tion sheet, one of eight available overflow 
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Figure 79. Specifying Output Indicators for Overflow 


indicators is entered. The following 
eight indicator codes are used: 

OA, OB, OC, OD, OE, OF, OG, and OV. 

OUTPUT INDICATORS (23-31) 

This specification may be used for either 
file identification or field description. 
Entries in this column may specify a maxi- 
mum of three indicators. These indicators 
control: 

1. When the line is to become output, or 

2. When a particular field is to be 
written. 

The following information applies only 
to its use in the file identification line. 

If more than one indicator is specified 
on one line, all indicators are considered 
in an AND relationship. That is, all indi¬ 
cator conditions specified must be satis¬ 
fied before the output condition can be 
executed. 

If the object program requires that 
more than three indicators be in an AND 
relationship, the letters AND are entered 
in columns 14-16 of the following line, and 
the additional indicators are specified on 
that line. 

If the output condition is executed in 
an OR relationship (one or the other of two 
sets of conditions) the letters OR are 
entered in columns 14-15 of the following 


specification line, and the OR indicators 
are specified on that line. 

Additional specification lines can 
specify as many output indicators in either 
an AND or OR relationship as required by 
the object program. Each additional line 
must begin with AND or OR in column 14. 

When an OR line is specified on a print 
file, the printer control functions (col¬ 
umns 17-22) may all be left blank, in which 
case those of the preceding line will be 
implemented. They may, however, differ 
from the preceding line if required. 

If a line is to be conditioned as an 
overflow line, the overflow indicator must 
not appear in a specification line having 
the letters AND in columns 14 through 16. 


Examples of Output Indicators 

The entries for this specification can be 

arranged into the categories listed below. 

1. A resulting indicator code specifies the 
particular record-type on which the out¬ 
put operation is to be performed. The op¬ 
eration cannot be performed on other rec¬ 
ord types. 

2. A field indicator code controls the out¬ 
put operation by the status of an input 
field. 

3. A resulting indicator code controls the 
output operation by conditions that have 
occurred during calculations. 
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4. A control level indicator (LI through 
L9 and LR) causes the output operation 
to be performed only at the control 
level specified. 

5. The MR indicator code causes the output 
operation to be performed only if there 
is a matching record in a second input 
file. 

6. The halt indicators HO through H9 are 
normally used to suppress an output 
operation when an error has been detec¬ 
ted in the input data or during a cal¬ 
culation. 

7. Overflow indicators cause the output 
operation to take place only if a page 
overflow has occurred. (Overflow line.) 

8. The IP (First Page) indicator enables 
overflow headings to be printed on the 
first page of a report. (This indicator 
is turned on at the beginning of proc¬ 
essing before any input records have 
been read.) 

In addition, this specification may con¬ 
tain a combination of some of the eight 
categories listed. Also, the operation may 
be controlled by the fact that an indicator 
must not be on. This is accomplished by 
placing an N in columns 23, 26, and 29. 

Figure 80 shows six examples of output 
indicators when they are used as part of 
the file identification specifications. 

The numbers to the right refer to the fol¬ 
lowing discussion: 

1. The control carriage is skipped to chan¬ 
nel 02 before printing, and the heading 
line is printed only when an overflow 
condition occurs or when the IP (first 
page) indicator is on. 

2. The detail line is printed only if 
Indicator 14 is on, and Indicators 26, 
28, and 30 are off. Indicators 26, 28, 
and 30 could be field indicators from 
the input specifications, or they could 
be resulting indicators from the calcu¬ 
lation specifications. 

3. The detail line is printed if Indicator 
40 or 46 is on. 

4. The total line is printed and the con¬ 
trol carriage is skipped to channel 2 
before printing only if the Level-2 
indicator is on, and the MR indicator is 
off, and H2 is off. The specification 
NH2 prevents the object program from 
printing a line if an error condition 
has occurred. 
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Figure 80. Specifying Output Indicators 


The program does not stop until after 
all processing for the record has been 
completed. This feature enables the 
programmer to prevent the printing of 
erroneous data. 

5. The summary record is printed at the 
Level-2 control time, but the MR (match¬ 
ing record) indicator must also be on. 

6. A summary card punched at the Level-2 
control time is selected into stacker 2 
of a 1442 Card Read-Punch. 

This concludes the description of the 
file-identification specifications. The 
remaining descriptions of the output form 
are concerned with the field-description 
section of the output specifications. 
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FIELD DESCRIPTION 

These entries include specifications about: 

1. The control of the individual fields of 
a record, and 

2. The output format of individual fields 
of a record. The fields of the record 
are written on the lines below their 
corresponding file entries. Each field 
is described on a separate line, and no 
entries are permitted in columns 7-22 of 
a field-description line. 

OUTPUT INDICATORS (23-31) 

The same types of indicators used for file 
identification can be used for field de¬ 
scription . The maximum number of indica¬ 
tors that can be considered in an AND rela¬ 
tionship is three; all must be specified on 
one field-description line. 

Figure 81 shows four sets of indicators 
used as output indicators for field- 
description lines. The numbers to the 
right of the figure correspond to the fol¬ 
lowing list: 

1. Four fields are printed from a detail 
record identified by Indicator 44: 
invoice, amount, customer, and sales¬ 
man. The entry LI causes the field, 
SALESM, to be printed only for the first 
detail record of each control group. 
(Remember that a control level indica¬ 
tor remains on during the following 
detail calculation and print cycle.) 

The salesman field is "group indicated". 

2. The second example illustrates how to 
prevent the printing of just one field 
of a record. The field AMOUNT is print¬ 
ed only if Indicator 16 is off. This 
indicator is used to determine if the 
calculated field AMOUNT is zero. 

3. This example selectively prints the 
field headings for an invoice form. 

This specification prints all the head¬ 
ing information on the first form, but 
if the information for one customer 
order continues on two or more forms, 
only the customer and invoice fields on 
succeeding forms are printed. 

Printing of the entire line is con¬ 
trolled by Indicators 04 or OF. In the 
field-description specifications, the 
OF indicator is also used to prevent 
printing of fields order number, date, 
and salesman when an overflow condition 
occurs. 

4. The last example illustrates how a 
field can be controlled for printing by 
an AND relationship and an OR relation¬ 
ship . 

The field DIVSON is controlled by 
three AND indicators: 16, NH2, and 
NL3. 

The field AMOUNT is controlled by 
two OR conditions. In the field 


description line, the OR relationship is 
used by writing the field name twice and 
specifying each appropriate OR indica¬ 
tor. 

The letters OR cannot be specified in 
columns 14-15 of a field-description. 

FIELD NAME (COLUMNS 32-37) 

This specification identifies each field of 
the record to be written. The fields may 
be listed on the form in any sequence. The 
order in which they appear in the output 
record is determined by the entry in col¬ 
umns 40-43. 

Enter in columns 32-37 the name of the 
field that is defined on the line. The 
field name must have been previously de¬ 
fined on either the input or calculation 
sheet. (For an exception to this, see 
Page Numbering. ) If a constant is to be 
written, it is specified in Constant or 
Edit Word (columns 45-70), and Field Name 
is left blank. 

Examples of field names are given in 
Figure 81. 

ZERO SUPPRESS (38) 

An entry of Z in this specification causes 
zero-suppression of the field in the out¬ 
put record, which must be a numeric field. 
Zero suppression means that zeros to the 
left of the first (high-order) significant 
digit in the field are not printed or 
punched. 

This specification performs an addition¬ 
al function: zone bits in the units posi¬ 
tion of a field are removed before the 
field is printed or punched. This provides 
a means of "zone elimination" for amount 
fields. Normally, this specification is 
used for printing quantity fields, but not 
for punching them, because it is usually 
necessary to punch the sign codes and lead¬ 
ing zeros. 

If an edit control word is specified for 
the field, this specification must be 
blank. 

BLANK AFTER (39) 

An entry of B in this specification causes 
the output field to be reset to blanks or 
zeros after execution of the output opera¬ 
tion specified. Alphameric fields are set 
to blanks; numeric fields are set to zeros. 

This specification has an additional 
feature: If the output field being reset 

by the Blank After specification is also 
being tested for zero or blank on the in¬ 
put specifications or being tested for 
zero on the calculation specifications, the 
corresponding indicator is turned on after 
the output field is reset. However, asso¬ 
ciated plus or minus indicators are not 
turned off. 
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Figure 81. Specifying Field Names 


79 































NOTE: A Blank After specification also 

affects any constant in storage. Since 
each constant is stored only once for 
every RPG program — no matter how often 
it is used — a constant affected by a 
Blank After specification is not available 
for use in subsequent operations. 


END POSITION IN OUTPUT RECORD (40-43) 

This specification indicates the location 
of the field in the output record. In 
columns 40-43, enter only the position in 
the output record where the rightmost (low- 
order) character of the field is to be lo¬ 
cated . 

Assume that a ten-position amount field 
is to be printed in print positions 21 
through 30. The entry in columns 42 and 43 
would be 30. Columns 40 through 41 are 
left blank, because the leading zeros may 
be omitted. 

If an amount field is being edited, the 
program considers the entire edit word as 
the "field" to be placed in the output 
record. For example, in the previous exam¬ 
ple assume the letters CR are to be printed 
at the end of minus amount fields. The R 
would be printed in position 30, the C in 
position 29, and the 10-position amount 
field would then be printed in positions 
19 through 28. Thus the amount field is 
always printed in positions 19-28, and the 
credit symbol (if applicable) is printed 
in positions 29 and 30. 


Figure 82 illustrates various field 
description specifications. It shows the 
specifications for printing a detail line. 
The three quantity fields ORDQTY, SCRAPQ, 
and RECPTQ are zero-suppressed. The quan¬ 
tity fields SCRAPQ and RECPTQ are also 
reset to zeros by the Blank After specifi¬ 
cation . 

Figure 83 illustrates an example of 
field selection specification. These 
entries punch a summary card at control 
level-1. In this example, a new balance 
(NEWBAL) and an old balance (OLDBAL) are 
used in the weekly reports; at the end of 
the month only the new balance is to be 
summarized for the following months report. 

Both fields are specified for the same 
punching positions in the output record. 
The actual field that is punched, however, 
is controlled by the setting of Indicator 
26. The number of fields that can be 
specified for field selection is not 
limited. 

PACKED (44) 

Packed format in the System/360 means that 
two decimal digits can be represented in 
one core storage byte. This is the data 
format used for numeric fields in RPG. 
Because input data is usually represented 
in the unpacked format - one digit in one 
core storage byte - the RPG program auto¬ 
matically converts numeric input data from 
the unpacked format to the packed decimal 
format. 
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Because the packed decimal format per¬ 
mits greater utilization of storage capac¬ 
ities (Card-Tape-Disk) the RPG program per¬ 
mits numeric data to be put out in the 
packed decimal format. 

Enter a P in this column if the numeric 
output field is to be in the packed decimal 
format. Otherwise, leave this column blank. 
The letter P causes the RPG program to by¬ 
pass the normal conversion of packed deci¬ 
mal format to unpacked format. 

The number of bytes occupied in the out¬ 
put record by a numeric field in packed 
format can be determined in the following 
manner: 

1. Divide the length of the field by 2 

2. Eliminate the rightmost decimal fractions 

3. Increase the result by one. 

If an edit control word or sterling en¬ 
try are specified for the field, this col¬ 
umn must be blank. 


PAGE NUMBERING 

Page numbering, another automatic feature 
of RPG, is specified in the field descrip¬ 
tion portion of the output specifications. 
The last entry in Field Name in Figure 84 
causes each page of the output form to be 
consecutively numbered in print positions 
65 to 68 (the number is always defined as 
four positions long unless defined by a 
header card on the input specifications). 
The page number is increased by one before 
it is printed. 

Page numbering normally begins with num¬ 
ber 1, but the programmer may start page 
numbering with any number by preparing a 
header card containing the starting page 
number, less 1. The header card must be 
defined on the input specifications form 
with a field named PAGE as illustrated in 
Figure 85. 

It is possible to reset the page number 
to zero and start a new series of page num¬ 
bers during the processing of the program. 
For example, rather than number each page 
of a report, it may be required to start 
page numbering with 01 for each major con¬ 
trol break. In this case the major control 
level indicator must be placed in Output 
Indicators on the same line as the Field 
Name specification PAGE. 

Any output indicators specified in a 
PAGE line are checked before printing. If 


all conditions are met, the page counter 
is reset to 0 before being incremented 
by 1. 

Page Numbering for Multiple Printers 

The individual printer files can initialize 
page numbering. Eight special PAGE entries 
(PAGE, PAGE1, PAGE2, PAGE3, PAGE4, PAGE5, 
PAGE6, and PAGE7) can be initialized to any 
count in the same manner as described for 
PAGE. 


CONSTANT OR EDIT WORD (45-70) 

This specification provides constants in 
the output records or permits editing of 
amount fields on printed reports. Constants 
and edit words must be left-justified. 

Constants 

This entry provides a convenient method of 
placing into the object program alphameric 
data (literals) that does not change from 
one processing of the program to the next. 

A literal is the actual data to be used in 
the output record rather than a name rep¬ 
resenting the location of data. 

A literal of up to twenty-four alpha¬ 
meric characters may be placed in columns 
45-70. The literal must begin in column 
45, and it must be enclosed by a set of 
apostrophe symbols even if it contains only 
numeric characters. The literal beginning - 
in column 45 will be placed on the output 
record as defined in End Position in Output 
Record , (columns 40-43). 

Rules for Forming Alphameric Literals in 
an Output Record: 

1. Any character in the character set may 
be used in an alphameric literal. 

Blanks are treated as valid characters. 

2. Alphameric literals must be enclosed in 
a set of apostrophe symbols. An apos¬ 
trophe symbol may be contained within a 
literal by entering two consecutive 
apostrophe symbols within the literal. 

For example, the literal o'clock would 
be entered as 1 o"clock‘ in columns 45- 
54 of the Output-Format Specifications 
sheet. 

3. Field Name (columns 32-37) must be left 
blank when an alphameric literal is de¬ 
fined on the line. 


82 










































































Edit Words 


An edit word provides for the punctuation 
of amount fields, including the printing 
of dollar signs, commas, periods, and sign 
status. Column 38 ( Zero Suppression) and 
column 44 (Packed) must be left blank. An 
edit operation is'shown in Figure 86. 


IN STORAGE 

bjbjb^jbibjO, ■ , b , b , & | C | R |* i - *—Edit Word 


I 0 1 0 I 3 1 6 | 7 | 9 | 6 [ 4 | 


Unedited Data 


IN OUTPUT RECORD 
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Figure 86. Edit Operation 


When an amount field is to be edited, 
its edit word is placed in columns 45-70 
of the line which specifies the field. An 
edit word consists of two parts (the body 
and the status) as shown in Figure 87. 

The body of the edit word is the portion 
beginning with the leftmost character, and 
continuing to the right to the character 
that governs the transfer of the rightmost 
position of the data field. 

The status of the edit word is the por¬ 
tion continuing to the right from the body 
including all characters preceding the 
closing apostrophe symbol. The CR (credit) 
or - (minus), if present, may appear any¬ 
where within the status. A character in 
the edit word that is replaced by a 
numeric character from the data field is 
referred to as a digit position. A blank 
in the edit word is a digit position as 
are the characters 0_, and under 
certain conditions. 


Rules for Forming an Edit Word 

1. An edit word must be enclosed in a set 
of apostrophe symbols. 

2. A blank in the edit word is replaced 
with the digit from the correspond¬ 
ing position of the data field specified 
in Field Name. A blank position is re¬ 
ferred to as a digit position. 

3. An ampersand causes a space in the edit¬ 
ed field. There is no way to obtain an 
ampersand in an edited field. 


I b b b , bbQ.bb&CR*| 


Body 


Status 


Figure 87. Two Parts of an Edit Word: Body 
and Status 


4. A zero is used to stop zero-suppression. 
It is put in the rightmost position 
where zero suppression is to take place. 
It is replaced with the character from 
the corresponding position of the data 
field, unless that character is a zero. 
At least one leading zero is suppressed. 

5. An asterisk in the body of the control 
word is used for asterisk protection and 
zero suppression. It is put in the 
rightmost position where zero suppres¬ 
sion is to take place. It is replaced 
with the character from the correspond¬ 
ing position of the data field unless 
that character is a zero and there is 

no significant digit to its left. Each 
zero that is suppressed is replaced by 
an asterisk. 

6. A dollar sign in the body of the edit 
word written immediately to the left of 
the zero-suppression code (0) causes the 
insertion of a dollar sign in the posi¬ 
tion to the left of the first signifi¬ 
cant digit. This is called the float¬ 
ing dollar sign. If it is necessary 
for the dollar sign to appear when all 
digits in the data are significant, the 
edit word must start with an ampersand 
to allow a space in which it can print. 

A dollar sign that is entered im¬ 
mediately after the initial apostrophe 
symbol will be fixed. That is, it will 
be printed in the same location each 
time. This is called the fixed dollar 
sign. 

NOTE: In the edit word '$0bb' the 

dollar sign is considered to be fixed 
and not floating. 

7. The decimal and commas are printed in 
the edited output field in the same 
relative positions in which they were 
written in the edit word unless they 
are to the left of significant digits. 

In that case, they are blanked out or 
replaced by an asterisk. Any characters 
other than the fixed dollar sign which 
precede the first digit position will 
always be suppressed. 

8. All other characters used in the body 
of the edit word are printed if they 
are to the right of significant digits 
in the data field. If they are to the 
left of high-order significant digits 
in the data word, they are blanked out, 
or if asterisk protection is used, they 
are replaced by an asterisk. 

9. The letters CR or the minus symbol in 
the status portion of the edit word 
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Figure 88. Using Constants and Edit Words 


are undisturbed if the sign in the 
data field is minus. If the sign is 
plus, they are blanked out. 

10. Asterisks to the right of the CR or 
minus symbol are undisturbed. They are 
normally used to indicate a specific 
class of total. 

11. If there are more digit positions in 
the edit word than there are digits 
in the field to be edited, leading 
zeros will be added to the field before 
editing. 

12. An edit word can contain a maximum 
of 15 digit positions. An exception 
occurs for a sterling field where the 
maximum is 16 digit positions. 

Figure 88 illustrates the use of con¬ 
stants and edit words. The numbers to the 

left correspond to the following list: 

1. The constant 26.75 is in the output 
record ending in position 96. The 
Field Name specification must be blank. 

2. The constant DEPARTMENT TOTAL is con¬ 
tained in the output record ending in 


position 36. The Field Name specifi¬ 
cation must be blank. 

3. This example illustrates zero-suppres¬ 
sion to the left of significant digits. 
The letters CR are written because the 
amount field might be minus. 

4. In this example, the floating dollar- 
sign protection enters the $ to the left 
of the first significant digit. 

5. Asterisk protection enters as many 
asterisks to the left of the first sig¬ 
nificant digit as required to fill out 
the number of positions specified in the 
edit word. 

STERLING SIGN POSITION (COLUMNS 71-74) 

Enter in these columns the position in the 
record that will contain the sign of the 
sterling field. Leading zeros may be omit¬ 
ted. Enter an S in column 74 if the sign is 
in the normal position. For Print files the 
normal position must be used. If the Ster¬ 
ling specification is not required, leave 
this column blank. Additional information 
on Sterling is in Appendix C, Sterling Rou¬ 
tines for the Report Program Generator. 
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LINE COUNTER SPECIFICATIONS SHEET 


The Line Counter Specifications sheet 
provides the important facility to store 
reports, which will ultimately be printed, 
on any intermediate device such as tape or 
disk. It also provides the convenience of 
an "internal" carriage control tape when 
using an actual printing device. 

This sheet is necessary because any out¬ 
put lines for the printed report that 
depend upon the sensing of a channel-12 
punch in the carriage control tape will not 
be produced for tape or a direct access 
storage device. Thus, the Line Counter 
Specifications sheet is used to relate the 
line of the printed page of the report to 
its corresponding punch in the carriage 
control tape. 

NOTE: When automatic skipping is desired 

(overflow indicators are not specified) 
and the report is to be stored on some 
intermediate device, the Line Counter 
Specifications sheet must be used. 


HOW TO USE LINE COUNTER SPECIFICATIONS 


In Figure 89, three lines of the report 
are conditioned by the carriage control 
tape. Channel 1 is used to control print¬ 
ing of Monthly Sales Report. 

Tape channel 6 is used to control 
amount, and channel 12 is used to condition 


total sales. On the Line Counter Specifi¬ 
cation sheet (Figure 90) the name of the 
file is entered in columns 7-14. The 
entries, in this example, in columns 15-29 
relate directly to the printer spacing 
chart. The numbers in the following list 
correspond to this discussion: 

1. The first line controlled by the car¬ 
riage control tape is line 6. In col¬ 
umns 15-17 of the Line Counter sheet, 

006 is entered. The corresponding chan¬ 
nel punch is channel 1. In columns 18- 
19, 01 is entered. 

2. Line 13 of the report (amount) is con¬ 
trolled by a punch in channel 6. Col¬ 
umns 20-22 contain 013, and Columns 23- 
24 contain 06. 

3. Line 17 (total sales) is controlled by 
the punch in channel 12 of the carriage 
control tape. Columns 25-27 of the 
Line Counter Specifications sheet con¬ 
tain 017, and columns 28-29 contain 12. 


Entries on the Output-Format Specifi¬ 
cations are not changed. On the File 
Description sheet, the line that is used 
to define the output file must contain an 
L in the Extension Code Field (column 39). 
The L indicates that a Line Counter Speci¬ 
fication is required for the output file. 

If the Line Counter Specification sheet 
is used, an entry must be made for channel 
1 and channel 12. 
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Figure 89. Using the Carriage Control Tape 


























































FILE DESCRIPTION SPECIFICATIONS SHEET 


This sheet is used to provide information 
to RPG about: 

1. The input files, defined on the Input- 
Specifications sheet, from which the 
object program will obtain data records. 

2. The input files used by the object pro¬ 
gram, such as record address files, 
table files, and chaining files. 

3. The output files, defined on the Output 
Format Specifications sheet on which 
the object program will write data 
records. Each file used by the object 
program must be defined. Each line of 
the File Description sheet is used to 
define one file. 

This form also identifies each file used 
in the program with the input or output 
unit with which it is associated. Each 
line of the form is used to specify one 
file. 

Maximum Number of Files Available 


characters or embedded blanks. The file 
name may be eight characters or fewer. (Em¬ 
bedded blanks are blank positions falling 
between other characters of the name.) The 
file name entered in these columns must also 
have been entered on the Input Specifica¬ 
tions sheet (for input data files), on the 
Output Format Specifications sheet (for out¬ 
put data files) or on the File Extension 
Sheet (for Table, RAF, ADDROUT, or chaining 
files). 

FILE TYPE (15) 

An entry in this column specifies the type 
of file defined on the line of the sheet. 

The following four entries are allowed in 
this column: 

I Input File 

Identifies the file as an input file (it may 
be a record-address file, table file, or a 
file containing input data records). 


The maximum number of files that can be 
used in the program is 10. The list below 
defines the maximum number of files for 
the various types of files that can be 
used. Any combination of these, up to 10, 
is permitted. 


Type of File 

Input 

Primary 
Secondary 
RAF or ADDROUT 
Chained 
Table 
Output 
Update 

Primary 

Secondary 

Chained 

Combined 

Primary 

Secondary 


Maximum Number 


1 * 

8 

1 

9 

8 

9** 

1 

8 

9 

1 

1 


*Each program must have one (and only one) 
primary file. 

**Up to a maximum of eight printers can be 
used in a program. 


FILENAME (7-14) 

Each file used in the program is identified 
by writing the name of the file in columns 
7-14. The file name must be left-justified 
(that is, it must start in column 7) and it 
must begin with an alphabetic character. 

The remaining characters of the name may 
be alphameric, but must not contain special 


O Output File 

Identifies the file as an output file (it 
may be an updated Tablefile to be written 
out) . 

U Update File 

Identifies the file as an update file (Di¬ 
rect Access Storage Device only). An update 
file is both an input and an output file. 

The file is an update file if the object 
program alters the data in one or more 
fields of each record contained in the file. 
The overall length of the record cannot be 
changed even in a variable length file. 

A chained file may be updated at detail 
time or at total time. All other DASD files 
can be updated at detail time only. 

C Combined File 


Identifies the file as a combined file (card 
file only). A combined file is a file con¬ 
taining cards read into the system and cards 
used for punching. It must reside on a de¬ 
vice such as an IBM 1442 Card Read-Punch, 
and must be assigned to Symbolic Device 
SYSPCH or SYSnnn. 

Reading and then punching into the same 
file is accomplished in two different ways. 

1. Punching into the same card that is read. 

2. Punching into a blank trailer card in the 
same file. 

Figure 91 illustrates two examples of 
File Name and File Type specifications. 
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Figure 91. Specifying File Name and File 
Type 


1. Detail cards are read into the system 
in one file, summary cards are punched 
into a separate file (which, in this 
example, might be the punch feed of an 
IBM 2540 and might contain blank cards 
only), and the printed report is in a 
third file. 

2. There are two input files in this exam¬ 
ple. The second file (INPUTSEC) also 
contains cards that will be used for 
punching output data; therefore it is 
specified with file-type C. 

FILE DESIGNATION (16) 

This specification is used to designate the 
type of input file being defined on this 
line of the File Description sheet. The 
five entries permitted in this column are 
listed here. Detailed explanations of 
chained files, table files, record address 
files, primary files, and secondary files 
may be found in the sections Using Tables 
in the Object Program and Processing Multi¬ 
ple Input Files at the back of this publi¬ 
cation . 

If the file is an output file, leave 
this column blank. An entry must be made 
if the file is an Input, Update or Combined 
file. Enter in column 16 the following 
codes: 

Entry Explanation 


P The file defined is a primary 

file. Only one primary file may 
be defined. 


S The file defined is a secondary 

file. 

R The file defined is a record 

address file or an address output 
(ADDROUT) file which relates to a 
direct access storage file. Only 
one RAF file may be defined. 

C The file defined is a chained file. 

T The file defined is a table file. 


END OF FILE (17) 

Enter an E in column 17 if the input file 
is a sequential file and it is to be 
checked for an end-of-file condition. 

For one input file, the E entry will 
cause the LR (Last Record) Indicator to 
turn on when the last record of the file 
has been processed. For multiple input 
files, the end-of-job condition (LR) will 
occur when all the input files (defined on 
this sheet with an E in column 17) have 
reached the end-of-file. 

If this column is left blank for all 
input files, the end-of-job condition 
occurs when all input files have been proc¬ 
essed . 

NOTE: An E should not be entered in Column 

17 if the file is processed randomly or if 
the file is either an output or table file. 


SEQUENCE (COLUMN 18) 

This entry is normally made if there is 
more than one input file, and the matching- 
fields specification (columns 61-62 of the 
Input Specifications Sheet) is used. An 
entry in this column indicates whether the 
matching fields are in ascending or 
descending sequence. 

Enter an A in column 18 if the matching 
fields are in ascending order, or a D if 
the matching fields are in descending 
order. 

Sequence-Checking of Input Files 


If there is only one input file or a chain¬ 
ing file in the program, this specification 
may be used to sequence-check fields of the 
file to ensure that the file is in 
sequence. By entering the codes Ml, M2, or 
M3 in columns 61-62 of the Input Specifica¬ 
tions sheet, sequence-checking with respect 
to these fields occurs. In this specifica¬ 
tion (column 18), either A or D must be 
entered to specify whether the file is 
ascending or descending. 

The Halt Indicator, HO, is turned on 
when a record of an input file is found to 
be out of sequence. Unless the HO indica¬ 
tor is turned off by a SETOF operation in 
the calculation specifications, the program 
will terminate before the next input record 
is read. 
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FILE FORMAT (19) 

This column is used to indicate the format 
of the input or the output records. Enter 
an F in this column if the records are 
fixed-length. Enter a V in this column if 
the records are variable in length. 

NOTE ; Enter a V in this column if the out¬ 
put file is used in conjunction with the 
Line-Counter Specification Sheet. 

BLOCK LENGTH (COLUMNS 20-23) 

This specification is used to indicate the 
block length of the input or output 
records. It is used in conjunction with 
the next specification. Record Length. 

The RPG program provides four techniques 
for handling records; 

1. Fixed-length. All records have the same 
number of bytes of data. 

2. Variable-length. Each record can have 
a different number of bytes of data. 

3. Unblocked. Only one logical record in 
each physical record. 

4. Blocked. Two or more logical records 
in one physical record. Blocked 
records are not supported by the Direct 
Access Method (DAM). 

Fixed-length, Unblocked (Figure 92) . 

Each logical record is the same length as 
the physical record. 

Fixed length. Blocked (Figure 93) . Blocked 
records are usually considered to be two 
or more logical records within one physical 
record. 


Variable-length, Unblocked (Figure 94) .■ 

Each logical record is the same as a 
physical record, and the logical records 
can vary in length. Each record contains 
both a block-length field (BL) and a 
record-length field (RL). These two fields 
are used by and created by the RPG pro¬ 
gram. The block-length and record-length 
fields are illustrated here only to show 
how the program utilizes and controls the 
records. Those fields are ignored by the 
user when he establishes his data records 
and when he specifies record-length and 
block-length specifications. 

Variable-length, Blocked (Figure 95) . One 
or more logical records (of variable- 
length) are contained within each physical 
record. 

Specifications for Block Length 
Unblocked 

If the records are unblocked, the entry 
for this specification is the length of a 
record. If variable-length records are 
used, it is the length of the longest rec¬ 
ord. This means that the entry for this 
specification for unblocked records is 
always the same as the entry for the Record 
Length specification. 

Blocked 

If the records are blocked, the entry for 
the specification is the length of the 
largest block. For example, if three 
fixed-length 90-character records are con¬ 
tained in each block, the specification for 
Block Length is 270. 



G = Gap Area Separator 
RL = Record Length 


Figure 92. Fixed-Length, Unblocked Record Format 
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If there are variable-length records 
used in the file—for example Figure 95-the 
Block Length specification depends upon not 
only the number of variable-length records 
in each block, but also upon the maximum 
size of each variable-length record. 

If, in Figure 95, the three variable- 
length records (in physical record 1) will 
never exceed 80, 100, and 50 positions re¬ 
spectively, then the block length would be 
230. 


The entry must be right-justified, lead¬ 
ing zeros may be omitted. 

For blocked variable-length records, RPG 
allows buffer space for n record length 
fields (Figure 95)? where n is given by the 
formula: 


block length 
record length 


Physical Record 1-►N-Physical Record 2- 


^22 




2222^ 



\ 



Data Area 

Data Area 

Data Area 

Data Area 

Data Area 

Data Area / 



1 

2 

3 m 

4 

5 

6 ( 

iH 







__ 1 


Figure 93. Fixed-Length, Blocked Record Format 



BL = Block Length 
RL = Record Length 


Figure 94. Variable-Length, Unblocked Record Format 



Figure 95. Variable-Length, Blocked, Record Format 
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RECORD LENGTH (24-27) 

This specification is used to enter the 
length of the logical records contained in 
the file. If the file contains records 
that are variable in length, enter the 
length of the largest record. (The entry 
must be right-justified.) 

NOTE 1: If the block length equals the 
record length, RPG considers the file to 
have unblocked records for both fixed- 
length and variable-length records. 

NOTE 2 : If the block length is greater 
than the record length, RPG considers the 
file to have blocked records for both 
fixed-length and variable-length records. 

MODE OF PROCESSING (28) 

(DASD only) 

This specification is used to indicate 
the method or mode by which the file is 
processed. Acceptable entries are listed 
here. 

Entry 

L Enter an L in this column if a seg¬ 
ment of the file is to be processed. 
The upper and lower limits of the 
file will be supplied, in this case, 
by a Record-Address File (RAF). The 
RAF will be supplied by the user. 

R Enter an R in this column if the 
user's records are to be processed 
randomly. In this case, the records 
to be processed will be obtained by 
a record-address file, a chaining 
file, or an address output file. 

Blank If no entry is made in this column 

for the file, the entire file will be 
processed sequentially. 

LENGTH OF RECORD ADDRESS FIELD (29-30) 
(Record Address File Only) 

If the file being defined is a record- 
address file, enter the number of positions 
that each entry in the RAF occupies. 

For example, if a six-position part num¬ 
ber field is used in the RAF, the entry 
would be a 6. 

RECORD ADDRESS TYPE (31) 

(DASD only) 


If the records from the file are to be 
retrieved by using record keys, enter a K 
in this column. The K indicates that the 
file defined on this line will be proc¬ 
essed, using a record key. 


If the records are to be retrieved by 
the record identification, enter an I in 
this column. 

TYPE OF FILE ORGANIZATION (32) 

(DASD only) 

Leave this column blank if the file is 
organized sequentially. Enter an I if the 
file has indexed-sequential organization. 
Enter a D in this column if the file has 
direct organization. Enter a T in this 
column if the file is the output from the 
ADDROUT (Address Output) option of the Disk 
Sort Program. See IBM Basic Operating Sys- 
tem/360, Sort/Merge Program Specifications, 
16K Disk for an explanation of the ADDROUT 
option. An example of using this option 
is contained in the section of this manual 
entitled Using the ADDROUT Option . 

RULES FOR DASD SPECIFICATIONS 
(COLUMNS 28, 31, and 32) 

The four rules listed below summarize the 
entries for the specifications Mode of 
Processi ng, Record Address Type, and Type 
of File Organization. 

1. If a direct access storage device is not 

used in the system, columns 28, 31, and 

32 are left blank. 

2. If the type of file organization is 

Sequential, then columns 28, 31, and 32 

are again left blank. 

3. If the type of file organization is 
Indexed-Sequential (I in column 32), 
then column 31 must contain a K and 
column 28 can be either L, R, or blank. 

4. If the type of file organization is 
Direct (D in column 32) , then column 31 
can contain either a K or I, and column 
28 can only contain an R. 

5. If the ADDROUT option is used, the tag 
file (address file) has a T in 32 and a 
blank in 28 and 31. The data file has 
an R in column 28, an I in column 31, 
and a D in column 32. 

Table 3 illustrates the code combina¬ 
tions possible for these three specifica¬ 
tions. 

OVERFLOW INDICATOR (33-34) 

If the file defined on the line is a 
printer file or an output file with an 
associated Line Counter Specification 
sheet and overflow indicators are used, 
enter the overflow indicator associated 
with the file. A maximum of eight over¬ 
flow indicators is allowed. The following 
are permissible overflow indicators: 


OA 

OE 

OB 

OF 

OC 

OG 

OD 

OV 
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Table 3. Processing Direct Access Storage Files 


Type of File 
Organization 
(Column 32) 

Record Address Type 

(Column 31) 

Mode of Processing 
(Column 28) 

Sequential (blank) 

Not applicable (blank) 

The entire file (between limits) (blank) 

will be processed 

Indexed-Sequential (1) 

Record Key (K) 

The entire file will be processed (blank) 

A segment of the file will be processed (L) 

The limits to be processed are supplied 
by a Record Address File (RAF) 

The records will be processed randomly (R) 

The addresses are supplied : (a) by an 

RAF, or (b) by the data contained in the 
chaining field of an input record. 

Direct (D) 

Track address with 

Record Key (K) 

or. 

Track Address with 

Record Identification (1) 

The records will be processed randomly. (R) 

The addresses,to be converted are supplied 
by an RAF file, a chaining file, or by an 

ADDROUT file. Conversion is required for 

RAF or chaining file . 

ADDROUT option 

Tag (addr) fi le (T) 

Data Fi le (D) 

Tag (Address) File (blank) 

Data File ([) 

Tag (address) File (blank) 

Data File (R) 


KEY FIELD STARTING LOCATION (35-38) 

(DASD Only) 

This specification indicates the location 
of the key field within the data record. 
This specification is provided so that the 
key field may be located anywhere within 
the data record. 

The entry for this specification is the 
starting position of the key field. For 
example, if the key field is in positions 
112 through 116, the entry would be 112. 

The entry must be right-justified; lead¬ 
ing zeros may be omitted. This entry is 
required for indexed-sequential files 
only and is blank for direct files. 

EXTENSION CODE (39) 

This specification is used to indicate to 
the RPG Processor that additional informa¬ 
tion about the file is coded on the File 
Extension Specification sheet or Line 
Counter Specification sheet. 

Enter an E in this column if the file 
defined on the line is a: 

Chaining file 
Table file 

Record Address file (RAF) 

Tag (Address) file (from the ADDROUT 
option) 

These files always have additional specifi¬ 
cations on the File Extension Specification 
sheet. 


Enter an L if the Line Counter Specifi¬ 
cation sheet is used for the output file 
described on this line. 

DEVICE (40-46) 

This specification relates a file to a 
specific type of input or output unit 
during program compilation time. 

If the output file is a printer, enter 
PRINTER in columns 40-46. 

If the file is an input or output file 
and it is associated with a card reader or 
card punch unit, enter one of the follow¬ 
ing: 

READ01 IBM2501 Card Reader 

READ20 IBM2520 Card Read-Punch 

READ40 IBM2540 Card Read-Punch 

READ42 IBM1442 Card Read-Punch 

If the file is an input or output file 
and it is associated with a tape unit 
enter TAPE in these columns. 

If the file is associated with a 2311 
Disk Storage Drive enter DISK11. 


SYMBOLIC DEVICE (47-52) 

The RPG program does not reference I/O 
units by their actual physical addresses. 
Instead, a symbolic name is used. Physical 
addresses are assigned to the symbolic 
names at job execution time. 
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The programmer can write a program that 
is dependent upon only the type of I/O unit 
and not upon the actual device address 
assigned to it. 

At program execution time, the machine 
operator determines the actual physical 
unit to be assigned to the symbolic device 
name. The assignment of the I/O unit 
addresses is accomplished by a Job Control 
Card. 

Valid entries for the specification are: 


SYSRDR 

SYSLST 

SYSIPT 

SYSPCH 

SYS001- 

SYS244 


System Card Reader 
System Printer 
System Input Unit 
System Punch Unit 
Any input or output 
unit 


NOTE 1: Input units containing files 
organized in indexed-sequential or random 
organization must be assigned Symbolic 
Device codes of SYS001-SYS244. 


NOTE 2: If the logical file extends over 
more than one physical unit, the device 
codes must be adjoining. For example, if 
a logical file is contained in three IBM 
2311's the device codes could be SYS019, 
SYS020, SYS021. Thus, the number SYS019 
would be specified in Symbolic Device. 

Figure 96 shows several examples of 
entries on the File Description Specifica¬ 
tions sheet. The numbers to the right cor¬ 
respond to the explanation that follows. 


1. The P in column 16 indicates the input 
file INPUT is the primary file. The E 
in column 17 indicates that the end-of- 
job condition will occur when this file 
is depleted. The file is ascending (A 
in column 18). The block length is 80, 
and each record is 80 characters long. 
The E in column 39 indicates that the 
file will be referenced on the File 
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Figure 96. Entries for File Description Sheet 
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Extension sheet. This file is read in 
on an IBM 1442 Card Read-Punch. The ' 
Device code is READ42, and the Symbolic 
Device code is SYSRDR. 

2. The record address file defined on this 
line has a fixed format (column 19) . It 
has a block length of 80. Each record 
is 80 characters long and the length of 
each record-address field is 8. The E 
in column 39 indicates that the File- 
Extension sheet will be used. The rec¬ 
ord address file is read into the pro¬ 
gram by an IBM 2501 Card Reader. The 
Device code is READ01 and the Symbolic 
Device code is SYS001. 

3. The third file defined on this sheet is 
a table file. The T in column 16 indi¬ 
cates that it is a table file. It has 
a fixed format, a block length of 200, 
and a record length of 100. Column 39 (E) 
indicates that it will be further defined 
on the File-Extension sheet. The file is 
read in on magnetic tape, therefore the 
Device code is TAPE, and the Symbolic 
Device code is SYS006. 

4. MASTCUST is an input file that will be 
processed under the control of another 
file. It is a chained file (C in column 
16). It will be processed randomly (R 
in column 28). The record addresses 
that will be referenced by the chaining 
file are record keys (K in column 31), 
and the file is organized indexed- 
sequentially (I in column 32). The key 
field begins in position 46 of the 
record. This file is located on a 
direct access storage device and is 
given the Device code of DISK11 and the 
Symbolic Device code of SYS008. 

5. The update file DISKUPDT (U in column 
15) will be used for input, and it will 
be updated after processing of each 
record has been completed. It is an 
Indexed-sequential file, and it will be 
processed randomly. The C in column 16 
indicates that the file is a chained 
file. In this example, the record 
length is 200 with a block length of 
400. The key field begins in position 

1 of the record. 

This file is located on a direct 
access storage device and is given the 
Device code of DISK11 and the Symbolic 
Device Code of SYS012. 

6. The file CARDREC is a combined file (C 
in column 15). Assume that the file 
will be used as input, and additional 
information will be punched in the input 
cards during processing. It is a Sec¬ 
ondary file (S in column 16). This com¬ 
bined file is read in and punched out on 


an IBM 1442 Card Read-Punch. The Device 
code is specified as READ42 and the 
Symbolic Device code as SYS002. 

7. The file OUTPUT is a printed report in 
this example. It is variable in length, 
and the longest record is 132 char¬ 
acters. The overflow indicator for this 
file is OF (columns 33-34). This print¬ 
ed report has a Device code of PRINTER 
and the Symbolic Device code of SYSLST. 

LABELS (53) 

When label processing is used for a tape 
or disk, the program checks the labels on 
the input file to see if the correct file 
is on-line. The output files are checked, 
and if the label has expired, a new label 
is written. 

If the user wishes to process non¬ 
standard labels, he must provide his own 
label-processing routines, which can be 
executed through a provided exit. 

Label Options in RPG 

The specification Label (column 53) pro¬ 
vides four options for label processing in 
the RPG program. 

1. S Standard Labels . Label processing 

is provided by the RPG program. No 
additional programming is required 
by the prograrraner. 

2. E Standard Labels Followed by User - 

standard Labels . RPG provides proc¬ 
essing for the standard labels and 
then provides an automatic exit to a 
user subroutine for the processing 
of the user-standard labels. (See 
next specification Name of Label 
Exit.) This option is not available 
for ISAM files. 

3. N Non-Standard Labels. An automatic 

exit is provided to a user subrou¬ 
tine for the processing of the non¬ 
standard labels. This option is not 
available for DASD files. 

4. b No labels . An entry of blank indi¬ 

cates no label processing is to be 
performed by the RPG program. This 
option is not available for DASD 
files. 

NAME OF LABEL EXIT (54-59) 

This specification must contain the name 
of the routine written by the user to proc¬ 
ess non-standard labels (E or N in column 
53). The name can be either alphabetic or 
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numeric, but the first character must be 
alphabetic. If the entry is shorter than 
six characters, it must be left-justified. 

Refer to IBM System/360, Disk Operating 
System, Supervisor and Input/Output Macros 
for label exit register conventions. 


EXTENT EXIT FOR DAM (60-65) 

This specification is used only when a file 
has direct organization and it is processed 
in a random sequence (D in column 32). 

The specification must contain the name 
of the routine (written by the user) to 
receive information regarding the extent 


of the file (refer to the DTFDA descrip¬ 
tion in the publication IBM System/360, 
Disk Operating System, Supervisor and 
Input/Output Macros) . The name can be 
alphameric but thefirst character must 
be alphabetic. If the entry is shorter 
than six characters, it must be left- 
justified. 


COMMENTS (66-74) 

Leave these columns blank unless comments 
are entered. 

This concludes the description of the 
File Description Specifications sheet. 
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FILE EXTENSION SPECIFICATIONS SHEET 


Entries made on the File Extension sheet 
provide information to RPG about such func¬ 
tions as chaining files and tables used in 
the object program, and information about 
record-address files and ADDROUT files. 
These functions are illustrated in Fig¬ 
ure 97. 

In the sections Using Tables in the 
Object Program and Processing Multiple 
Input Files detailed information and exam¬ 
ples show how to use these functions. A 
maximum of 25 File Extension specifications 
may be used. 

The entries allowed on the File 
Extension sheet are discussed in the fol¬ 
lowing section. 


RECORD SEQUENCE OF THE CHAINING FILE (7-8) 

This specification is used only for chain¬ 
ing files. The entry for this specifica¬ 
tion is the same entry that is made for 
the chaining file in Sequence (columns 
15-16) on the Input Specifications sheet. 

NUMBER OF THE CHAINING FIELD (9-10) 

This specification is used only for chain¬ 
ing files. The entry for this specifica¬ 
tion is the identifying number of the 
chaining field (Cl through C9). This num¬ 
ber was entered in Chaining Field (column 
61-62) of the Input Specification sheet. 
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FROM FILENAME (11-18) 

This specification is used in conjunction 
with next specification To Filename (19- 
26). The purpose of these two specifica¬ 
tions is to identify — for the RPG pro¬ 
gram — the relationship between two files. 
For example, they provide the name of a 
chaining file and the name of the file that 
is chained to it. Both the From Filename 
and To Filename are taken from Filename 
(columns 7-14) of the related entry from 
the file description sheet. 

Figure 98 illustrates the entries for 
those two specifications. 

TO FILENAME (19-26) 

The entries for this specification are 
described above and in Figure 98. 

TABLE NAME (27-32) 

This specification and the remaining speci¬ 
fications on the form (columns 33-57) are 
used to describe table files. This speci¬ 
fication is also used to specify the name 
of the address conversion routine for an 
RAF or chaining file. 

A table file is composed of a table of 
arguments and a table of functions. If 
both the arguments and functions are 
entered on one input unit, the table file 
is known as an "alternating" table file. 
That is, the input record contains an argu¬ 
ment field followed by a function field, 
followed by the next argument field, etc. 

In this case, the argument table is 
described in columns 27 through 45, and 
the function table is described in columns 


46 through 57 on the same specification 
line. 

If only an argument table is used, it 
is still described in columns 27-45, and 
columns 46-57 are left blank. 

It is possible to have the arguments 
contained in one input file and the func¬ 
tions in another input file. In this case, 
each file is described on a separate speci¬ 
fication line in columns 27 through 45, and 
columns 46-57 are left blank. 

NOTE: It is not a requirement of the pro¬ 

gram that the arguments must be specified 
first. The function entries may be listed 
first, however for the following specifica¬ 
tion descriptions the manual assumes the 
argument entries are specified first. 

Specifications for Table Name 

This specification contains the name of the 
argument table. The name must be in the 
form TABnnn. The entries nnn may be any 
alphameric characters. 

When a file that has direct organization 
is processed under control of a record- 
address file or a chaining file, the entry 
for these columns is the label of the 
user's conversion routine. 

Figure 99 illustrates the File Extension 
specifications for a Record-Address file 
(RAF) and the master customer file it is 
used with. 

The concepts of chaining and record 
address files have not been discussed at 
this point in the publication. For a com¬ 
plete discussion of chaining, address con¬ 
version, and record-address files, see 
Processing Multiple Input Files . 


Type of File 

* From Fi ie Name (11 -18) 

* To File Name (19-26) 

Chaining Files 

Chaining Fi le name . This is the fi le that has the 

Chained File name. This is the file from which 

data record containing the chaining field. The name 
of the file is taken from columns 7-14 of the File 
Description Sheet. 

the data record is obtained. The name of the 
file is taken from columns 7-14 of the File 
Description specification for the Chained File. 

Record Address 

File 

The name of the record-address file is entered in 
this specification. 

The name of the file that contains the data 
record to be processed is entered in this 
specification. 

ADDROUT File 

The name of the file that contains the record 
addresses is entered in this specification 

The name of the file that contains the data 
records is entered in this specification 

Table Files 

If a Table file is being defined (columns 27 through 

57) enter the name of the file that contains the 
table. 

If the table file being defined will be 
printed out after it is updated, enter the name 
that was assigned to it on the Output Format 
sheet. If it is not being printed outjeave blank. 


* All entries must be left-justified 


Figure 98. From and To Filenames 
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SEQUENCE (45) 
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If the data contained in the table is in 
ascending sequence, enter an A in this col¬ 
umn. If the data contained in the table is 
in descending sequence, enter a D in this 
column. Leave this column blank if the 
data contained in the table is not in 
ascending or descending sequence or if this 
specification is not required. 

NOTE: The next four specifications (col¬ 

umns 46-57) are used only if alternating 
arguments and functions are read in on one 
input unit. The entries for these specifi¬ 
cations are written on the same specifica¬ 
tion line as the entries in columns 33-45. 

TABLE NAME (46-51) 


Figure 99. File Extension Specifications 
Conversion Routine Label 


If alternating arguments and function 
tables are used, enter the second table 
name in these columns. It must be of the 
form TABnnn. The entry must be left- 
justified . 


NUMBER OF TABLE ENTRIES PER RECORD (33-35) 

Enter in columns 33-35 the maximum number 
of table entries (that is, arguments or 
functions) that are contained in each input 
record. The entry must be right-justified. 

NUMBER OF TABLE ENTRIES PER TABLE (36-39) 

In these columns, enter the exact number 
of table entries (arguments or functions) 
contained in the table. The entry must be 
right-justified. 

NOTE: The above two entries refer to 

tables, not to files. Thus, in alternating 
table files the entries are the total 
number of arguments c>r functions, not 
the sum of the two. 

LENGTH OF TABLE ENTRY (40-42) 

Enter in columns 40-42 the length of each 
table entry. The maximum size of a numeric 
entry is 15 characters, of an alphameric 
entry 256 characters. The entry must be 
right-justified. 

PACKED (43) 

If the data for the table is in the packed 
decimal format, enter P in this column. 
Otherwise, leave this column blank. 

DECIMAL POSITIONS (44) 

If the data contained in the table is 
numeric, enter the number of decimal posi¬ 
tions (1-9). Enter a zero if there- are no 
decimal positions. If the data is alpha¬ 
meric, leave this column blank. 


LENGTH OF TABLE ENTRY (52-54) 

Enter in these columns the length of each 
table entry. The maximum size of a numeric 
entry is 15 characters; of an alphameric 
entry 256 characters. The entry must be 
right-justified. 

PACKED (55) 

Enter a P if the data for the table is in 
the packed decimal format. Otherwise, 
leave this column blank. 

DECIMAL POSITIONS (56) 

If the data contained in the table is 
numeric, enter the number of decimal posi¬ 
tions (1-9). Enter a zero if there are no 
decimal positions. If the data is alpha¬ 
meric, leave this column blank. 


SEQUENCE (57) 

If the data contained in the table is in 
ascending sequence, enter an A in this col¬ 
umn. If the data contained in the table 
is in descending sequence, enter a D in 
this column. Leave this column blank if 
the data contained in the table is not in 
ascending or descending sequence or if this 
specification is not required. 

COMMENTS (58-74) 

Leave columns 58-74 blank, unless comments 
are entered in these columns. 
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ENTRIES ON THE FILE EXTENSION SHEET 

Figure 100 shows several examples of 
entries that can be made on the File 
Extension sheet. The numbers to the right 
of the entries correspond to these explan¬ 
ations: 

1. In this example, INPUT is a card file 
containing the record key that will be 
used to process records in the DASD 
file MASTCUST. The file INPUT is the 
chaining file. That is, it is the file 
that links or chains to another file (in 
this case MASTCUST). The field con¬ 
tained in INPUT, which is used to link 
the two files, is the chaining field . 

The record sequence of the input file 
is taken from the Input Specifications 
sheet. Cl is the number of the chain¬ 
ing field. Thus, INPUT is chained to 
MASTCUST by using a field defined on the 
input specifications that contains Cl in 
columns 61-62. A complete discussion 
of chaining may be found in Chaining at 
the back of this publication. 

2. In this example, RAFFILE is a record- 
addr-ess file that supplied the addresses 
of the records to be processed in the 
file DISKUPDT. 

3. TABFIL is the name of a table file that 
contains both a table of arguments and 
a table of functions. 

The arguments in the file are iden¬ 
tified by the table name of TABARG. 


The argument table is described in 
columns 33-45. There are 10 arguments 
in each record. The number of argu¬ 
ments in the table is 150 and each 
argument is 10 characters long. The 
arguments are numeric and there are no 
decimal positions, thus the entry is 0 
(column 44) . 

The functions in the file are iden¬ 
tified by the table name TABFUN. The 
function table is described in columns 
52-57. Each function is 10 characters 
long and each function is organized in 
the form: argument-function. There¬ 
fore, TABARG was specified first. 

4. This example shows the specifications 
for a table file that contains only 
arguments. After the table of argu¬ 
ments is updated the table is to be 
written on an output unit. 

TABFIL is the name of the table file. 

NEWTAB is the name given to the table 
file when it is being written on the 
output unit (output operations). 

The arguments in the file are iden¬ 
tified by the table name of TABREC. The 
argument table is described in columns 
33-45. Ten table entries are in each 
record. The number of table entries in 
the table is 150, and each table entry 
is 10 characters long. The data is 
numeric, but there are no decimal posi¬ 
tions, thus the entry is 0. Columns 46 
through 57 are left blank. 
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USING TABLES AMD EXIT ROUTINES IN THE 
OBJECT PROGRAM 


This section of the publication contains 
information on: 

1. How to create and use tables, and 

2. How to transfer control from the RPG 
program to a subroutine coded by the 
user, and how to return to the RPG 
program. 

USING TABLES IN THE OBJECT PROGRAM 

RPG enables the programmer to use tables 
in the object program. A table is nothing 
more than a systematic arrangement of data 
which is used by the object program in 
much the same manner that a shipping clerk 
would use a rate table for obtaining 
freight rates. The clerk might scan the 
table for the desired city and then select 
the corresponding rate. 

A table may consist of two parts: an 
argument and a function . In Figure 101 
the table consists of part numbers (argu¬ 
ments) and prices (functions). If the 
price of part number 10 is wanted, the 
table is searched until part number 10 is 
found. The corresponding function of 10 
in the table is 155. (The 155 represents 
$1.55, in this example.) The number used 
to search the table is called the search 
argument. The card file in Figure 101 con¬ 
tains part numbers that have been placed in 
the table in a predefined sequence. The 
cards do not contain the prices of the 
parts. The part number is selected from 


(Argument) (Functions) 
Part No. Prices 



the card by the RPG program, the table is 
searched, and the price is retrieved and 
made available for additional processing. 
Tables are loaded into storage by the RPG 
object program before any files are proc¬ 
essed . 

All entries in a table will be: 

1. Arguments, 

2. Functions, 

3. Alternating arguments and functions, or 

4. Alternating functions and arguments. 

Figure 102 shows these four possibilities. 
Rules for Forming Tables 

1. Each unit of table data is called a 
table entry. That is, each argu¬ 
ment is a table entry, and each 
function is a table entry. 

2. The collection of all argument entries 
is assigned a name. The collection of 
all function entries is assigned a 
name. 


Arguments 


Argument 1 

Argument 2 


Functions 

Function 1 

Function 2 

Function 3 ^^^Function N 

Alternating Arguments and Functions 

Argument 1 

Function 1 

Arg. 2 N 


Alternating Functions and Arguments 

Function 1 

Argument 1 
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Figure 101. Using a Table 
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These table names must be unique, 
and must contain the letters TABnnn 
(nnn may be any alphameric entry). In 
Figure 106 the alternating table file 
called RATETABL is split into tne 
collection of arguments (TABNUM) and 
the functions (TABRAT). RATETABL is 
the name of the file containing these 
two tables. 

3. All tables may be loaded from the same 
device. The tables will be loaded into 
storage before the object program is 
processed, and each line entry on the 
File Extension sheet must have: 

a. A file name (columns 11-18). Multiple 
file extension specifications for any 
table file are allowable. 

b. Entries in columns 27-45 if the table 
is only arguments or functions. 

c. Entries in columns 27-45 and columns 
46-57 if the table consists of alter¬ 
nating arguments and functions. 


Rules for Creating Records Containing 
Table Data 

1. Each record must begin with the 

first table entry of that record in 
position 1. 


2. All records must have the same number 
of table entries, except the last. In 
Figure 104, the first card in the table 
file has seven table entries. All sub¬ 
sequent card records must, have seven 
table entries. For example, the second 
card could not contain six; the third 
could not contain eight. 

3. All entries must be adjacent in every 
record. In Figure 103, the first entry 
begins in Position 1 and the second 
entry begins in position 4. No blanks 
can be contained between the table 
entries. 

4. All entries belonging to a table must 
have the same length. In Figure 103, 
each argument is three positions long, 
and each function is six positions long. 

5. When alternating tables are used, each 
record must begin with an entry of the 
same type. Each record must always 
begin with an argument, or each record 
must always begin with a function as 
shown in Figure 103. 

6. When alternating tables are used, the 
table entries in each record must not 
be split. Function 3, for example, 
must be in the same record as argument 
3. It is not permissible for a func¬ 
tion to appear in a different record 



Figure 103. Table File Containing Arguments and Functions 




from its corresponding argument. 

7. If a table consists of all arguments 
or all functions, an argument or a 
function must not be split. Assume 
that argument one, argument two, argu¬ 
ment three, and argument four are con¬ 
tained in the first record. No part of 
argument four could overflow into the 
second record. Figure 104 illustrates 
the correct way to specify records con¬ 
taining arguments or functions. 

8. The tables may be ascending, descending, 
or in no sequence. If the tables are 
not in sequence, only an equal search 
can be performed. 

9. The records of a table must be on a 
sequentially organized file. 

10. The table file to be loaded must contain 
the exact number of table entries as 
specified on the File Extension Specifi¬ 
cation sheet. 


METHODS OF PROCESSING TABLES 

The operation code LOKUP entered on the 
Calculation Specifications sheet causes a 
table lookup operation to be performed. 

Factor 1 contains the search argument. 
The search argument may be a literal or a 
field name. 


NOTE: The length of the data in the argu¬ 

ment table (table argument) must be equal to 
the length of the search argument. The 
length includes the decimal positions. 

Factor 2 contains the name of the table 
which contains the arguments. 

The Result Field contains the name of the 
table from which an associated function is 
to be located. 

The Result Field may be left blank if the 
user wants to determine if an argument is 
present in the table, but does not require 
the corresponding function. 

Resulting Indicators (columns 54-59) must 
always have an entry when the table lookup 
operation is performed. The presence of in¬ 
dicators in this specification indicate the 
type of lookup to be performed. The indica¬ 
tors are turned on whenever the condition is 
satisfied. 

The program may search for the table 
argument next-higher than the search argu¬ 
ment, or it may search for the table argu¬ 
ment next-lower than the search argument, or 
it may search for the table argument equal 
to the search argument. An entry must be 
made in columns 54-59. Combinations of high- 
equal or low-equal searches may be specified 
by placing indicators in the appropriate two 
of the three fields (columns 54-59). 



Figure 104. Table File Containing All Arguments 
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Performance of LOKXJP 

The lookup operation is performed in this 

way: 

1. The object program takes the field name 
or literal in Factor 1 and searches the 
table indicated by Factor 2. The kind 
of lookup is determined by the entries 
in Resulting Indicators . 

2. After the proper entry from the argu¬ 
ment table has been found, the corre¬ 
sponding function from the function 
table (indicated by the entry in Result 
Field is located and placed in the 
special holding area of the function 
table. If the proper table argument is 
not found, the indicators in columns 
54-59 are not turned on. 


Using LOKXJP Data Obtained 

Other operations may be performed using 
the data just found by the table lookup 
operation. This data is stored in the 
special holding area within the Function 
Table and can be retrieved by merely using 
the name of the Function Table in either 
Factor 1 or Factor 2 of an operation. 


Figure 105 illustrates several ways the 

data found by the operation may be used. 

The numbers on the figure correspond to 

this discussion. 

1. Factor 1 contains the name of a field. 
The field PERCNT contains the search 
argument. The name of the table that 
contains the argument is TABCST. The 
name of the table that contains the 
corresponding function is TABAMT. The 
program will search for the value in 
the argument table that is equal to the 
search argument (columns 58-59). 

2. The data found in TABAMT from the pre¬ 
vious operation is used as the search 
argument in this example. (TABAMT is 
the name of the table; however, this 
name now refers to the special holding 
area of the table TABAMT.) The pro¬ 
gram searches for the value in the 
table TABARG that is equal to the search 
argument (columns 58-59). 

3. In this example, the data obtained from 
the function table TABFUN from the pre¬ 
vious lookup operation is moved to a 
field called WITHTX. It will be used 
for additional calculations. 

4. In this example, the data found in the 
function and argument tables is updated. 
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The literal + 25 is the search argument. 
The table TABFIL is searched for +25 
(indicated by the entry in columns 58- 
59) . A new entry for the corresponding 
function of +25 is entered in TABLIT and 
in the special holding area. The new 
function is +500; the new argument is 
+ 30. 

5. In example 5, a lookup with only one 
argument table turns on Indicator 30 if 
SEARCH is equal to an argument in TABNUM. 
If 30 is not on (N30), HI is turned on by 
the SETON instruction. 

6. This example illustrates the facility for 
adding to the table. In this example, 
the LOKUP operation is conditioned on the 
Indicator 01. (Indicator 01 is turned on 
when the input file contains records with 
additional table information. Each rec¬ 
ord contains the two fields, NEWARG and 
NEWFUN.) To determine the first vacant 
argument, a field of zeros is used as the 
search argument. (Z$ros are used because 
the argument field is numeric. Blanks 
would be used if the argument field had 
been alphabetic.) 

If there is an equal compare, Indica¬ 
tor 35 is turned on-. Since the argument 
field of the table is vacant, the corre¬ 
sponding function field is also vacant. 
The new argument (NEWARG) is inserted in 
the TABARG field, and the corresponding 
new function (NEWFUN) is inserted in the 
TABFUN field. 

NOTE: Whenever a field TABnnn appears in 

columns 32-37 in the Output-Format Specifi¬ 
cation and blank-after is specified (B in 
column 39), the table value and hold area 
are updated to blanks or zero for alpha or 
numeric, respectively. 


RETRIEVING UPDATED TABLES 

After a table has been updated, the table 
may be written out for later use. 

On the File Description sheet, the pro¬ 
grammer enters the specifications for the 
output file that will contain the updated 
table. The file must be defined as an out¬ 
put file. 

On the File Extension sheet, the program¬ 
mer enters the name of this output file in 
To Filename . This entry is made on the same 
specification line that defines the table 
file. 

The updated table file will be put onto 
the output file after the program has 
reached the end-of-job condition (LR con¬ 
dition) . 

The name of the file need not be entered 
on the Output-Format Specification sheet. If 
the updated table is to be put out on a 
printer, no automatic skip to a new page 
will be initiated by the RPG program. 

The output table must have the same 
format as the input table. 




(Input 

Data) 


Figure 106. Using Alternating Arguments and 
Functions 

EXAMPLE OF USING TABLES 

Figures 106 and 107 illustrate an input data 
file, the way a table might appear, and the 
entries necessary on the RPG specification 
sheets. 

In this example, a card-input file con¬ 
tains the number of hours worked by each 
employee (columns 42-44) and the employee's 
number (columns 1-5). The RPG program takes 
the employee number and uses it as the 
search argument to find the salary rate for 
the employee. After the salary rate has been 
found, it is multiplied by the hours worked 
by the employee. The result of this opera¬ 
tion is the amount earned for each employee. 

In this example, the table consists of 
alternating arguments and functions. The way 
the table data might appear is shown in Fig¬ 
ure 106. The name of the file that contains 
the arguments and functions is RATETABL. The 
collection of arguments is called TABNUM 
(table number), and the collection of func¬ 
tions is called TABRAT (table rate). 

Entries on the specification sheets 
follow. 

File Description Specifications Sheet 

The two files are defined on the File Des¬ 
cription sheet. The file containing the in¬ 
put card records is called TIMECARD. It is 
an input file (I in column 15); it is the 
primary file (P in column 16) ; and when the 
file is depleted, processing is terminated 
(E in column 17). The records in the file 
are in ascending order (A in column 18); 
they are fixed-length records (F in column 
19). Each record has a block length of 80 
(80 in columns 22-23), and each record is 
80 characters long (80 in columns 26-27). 
This file is read in on the IBM 2501 Card 
Reader, so the Device code is READ 01, and 
the Symbolic Device code is given as SYSRDR. 

The table file is defined on the line be¬ 
low the card-input file. The name of the 
file (RATETABL) is entered in Filename 
(columns 7-14). It is an input file 
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(I in column 15), and the records in the 
file are fixed-length (F in column 19). 

The file has a block length of 80, and each 
record is 80 characters long. The E in 
column 39 indicates that additional infor¬ 
mation about the file is coded on the File 
Extension sheet. This file is read in on 
the IBM 1442 Card Read-punch, and therefore 
it is assigned the Device code of READ42. 
This is the second card reading device on 
the system so it is assigned a Symbolic 
Device code of SYS001. 

File Extension Specifications Sheet 

On the File Extension sheet, the table file 
is further defined. The name of the file 
is entered in From Filename (columns Il¬ 
ls) . The collection of arguments (TABNUM) 
is entered in the first Table N ame (columns 
27-32). There are eight arguments per rec¬ 
ord (columns 34-35) , and there are 1500 
entries in the table (columns 36-39). Each 
table entry is five positions long (5 in 
column 42), and there are no decimal posi¬ 
tions (0 in column 44). The table is as¬ 
cending (A in column 45). 

The collection of functions is described 
in columns 46-57. The name of the func¬ 
tions (TABRAT) is entered in the second 
Table Name (columns 46-51). Each entry 
in the table is four positions long (4 in 
column 54), and there are three decimal 
positions specified (3 in column 56). 


Input Spe c ifications Sheet 

The input file (TIMECARD) is described on 
the Input Specifications sheet. The name 
of the file is entered in columns 7-14. 

The file is assigned a sequence of AA 
(columns 15-16), and Resulting Indicator 
01 is turned on whenever an input record 
is present for processing. No record 
identification codes are specified because 
every record will be processed in the same 
way. 

Lines 020 and 030 are used to describe 
the locations of the two input fields used 
by the program. The employee number is 
located in columns 1-5 of the input record, 
as specified by the entries in Field Loca¬ 
tion (columns 47 and 51), and the employee 
number is given the field name EMPNUM. The 
number of hours worked by the employee is 
found in columns 42-44 of the input record, 
as specified by the entries in Field Loca¬ 
tion . The name HRSWKD is assigned to the 
number of hours worked by each employee. 

Calculation Specifications Sheet 


Three calculation specifications are shown. 
On line 010, EMPNUM (employee number) is 


used as Factor 1. The employee number is 
the search argument. The operation code 
LOKUP which is coded in Operation (columns 
28-32) causes the lookup operation to be 
performed. Factor 2 contains the name of 
the collection of arguments (TABNUM) which 
is searched. The Result Field contains 
the name of the collection of functions 
(TABRAT). Thus, this operation causes the 
employee number (EMPNUM) to be used as the 
search argument for the data contained in 
TABNUM. The result field is four positions 
long with three decimal positions. The 03 
entered in columns 58-59 indicates that 
Indicator 03 will be turned on when the 
search argument finds an entry in the argu¬ 
ment table that is equal to the search 
argument. 

The specifications on line 020 are 
performed when Indicator 03 is on. The 
rate for the employee (TABRAT) which has 
just been located is multiplied by the 
number of hours worked (HRSWKD), and the 
result is stored in EARNS which is five 
positions long and has two decimal posi¬ 
tions. The answer is half-adjugted. 

If the search argument does not 
find an equal entry in the argument table 
(Indicator 03 is not on), the specifica¬ 
tions on line 030 are performed. Col¬ 
umns 9-11 contain the specification N03. 

The literal +000.00 is then moved 
to the field EARNS, specifying that the 
employee does not have an entry in the 
table. 


EXIT TO A USER'S SUBROUTINE 


GENERAL INFORMATION 

By use of the EXIT operation code on the 
Calculation Specifications•sheet, RPG 
provides the facility to transfer control 
from the RPG object program to some sub¬ 
routine that has been coded independently. 

A subroutine might be a standard routine 
such as a state withholding tax. 

The subroutine, written in the Assembler 
language, is coded by the user, and entries 
made on the calculation sheet enable the 
programmer to: 


1. Exit from the RPG program to 
the subroutine, 

2. Execute the subroutine, 

3. Ref erence fields and indicators 
defined in the RPG program (RLABL 
usage), 

4. Reference fields defined in the user's 
subroutine (ULABL usage), and 

5. Return to the main program after the 
subroutine has been performed. 
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HOW TO CODE EXIT 

On the Calculation Specifications sheet, 
the EXIT operation can be a conditional 
operation. When entries are placed in 
columns 7-8, 9-11, 12-14, or 15-17, the 
EXIT will occur when the designated condi¬ 
tions are satisfied. If no indicators are 
used, the EXIT will occur everytime the 
detail calculations are performed. 

Columns 28-31 must contain the operation 
code EXIT and Factor 2 must contain the 
label of the user's subroutine. The sub¬ 
routine name may be from 1-6 alphameric 
characters with the first character being 
alphabetic. Factor 1 is not used. 

POSITION OF EXIT IN THE CALCULATION 
SPECIFICATIONS 

The following results will be obtained 
depending on the location of the EXIT 
code on the Calculation Specifications 
sheet. 


Calculation Entry 

1. First Detail 

2. Last Detail 

3. First Total 

4. Last Total 


When the Exit 
Will Occur 

At the end of the 
data routine (after 
the data is extract 
ed from the input 
record). 

Immediately before 
heading records are 
written. 

At the end of the 
input routine 
(after the record- 
type has been de¬ 
termined and the 
control-field break 
has been tested). 
Immediately before 
the total records 
are written. 


GENERAL RULES FOR USING EXIT 


RPG provides the facility for the subrou¬ 
tine to test indicators and use tables and 
fields that have been defined in the RPG 
program. RPG also provides the facility 
for the RPG program to use fields that 
have been defined in the subroutine. 

These two facilities are provided by using 
the two operation codes RLABL and ULABL. 


RLABL 


If the user has defined a field or table 
in the RPG program and it is to be used 


in the subroutine to which the EXIT will 
occur, he must code: 

1. RLABL in operation 

2. The name of the field or table in 
Result Field. 

3. The length of the field in Field Length 

4. The decimal indication in Decimal 
Positions . 

The user may need to reference, in the 
subroutine, indicators that are used in the 
RPG portion of this program. To do this, 
the user must code: 

1. RLABL in Operation . 

2. INnn in Result Field. The nn repre¬ 
sents the specific indicator that the 
user wants to test in the subroutine. 
Therefore, if MR was to be tested in 
the subroutine, he would code INMR in 
Result Field. 


ULABL 

If the user has defined a field in the 
subroutine, and this field is to be used 
in this RPG program he must code: 

1. ULABL in the Operation. 

2. The name of the field in Result Field . 

3. The length of the field in Field Length . 

4. The decimal indication in Decimal 
Positions . 

When executing the subroutine, the user 
may have to use an indicator in the sub¬ 
routine, and later reference that indica¬ 
tor in the RPG program. This can only be 
accomplished by first defining the indi¬ 
cator in the RPG program and then defining 
it in a RLABL operation. 

USE OF REGISTERS 

The way in which registers are used by the 
programmer is strictly defined. These 
rules must be followed: 


1. The Using Register that contains the 
entry address of the called subroutine 
is Register 15. 

2. When control of the program passes from 
the RPG program to the subroutine, the 
address of the RPG instruction to which 
the subroutine must return is stored in 
Register 14. 

3. The RPG instruction to which the sub¬ 
routine returns is the instruction that 
follows the EXIT operation. 
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4. If registers are used within the sub¬ 
routine the contents of the registers 
the programmer intends to use must be 
stored before the subroutine is executed. 

5. Before the subroutine transfers back to 
the RPG program, the registers must be 
restored to their original contents. 

USING INDICATORS, FIELDS, AND TABLES IN 
THE EXIT ROUTINE 

Indicators 

If, in the exit subroutine, the user sets 
on, sets off, or tests indicators, he must 
observe the following rules: 

1. To set on an indicator, set the data lo¬ 
cated at INnn to hexadecimal FO. 

2. To set off an indicator, set the data 
located an INnn to hexadecimal 00. (Indi¬ 
cator L0 must never be set off.) 

3. To test indicators: 

a. If on, the data at INnn will be hexa¬ 
decimal FO. 

b. If off, the data at INnn will be the 
hexadecimal 00. 

Fields 

If numeric data from the RPG object program 
is used in the subroutine, it will be in 
the packed-decimal format. If numeric data 
from the subroutine is supplied to the RPG 
object program, it must be in the packed- 
decimal format. 

Tables 

The subroutine may refer to a table which 
is defined in the RPG program. As each 
table is created in the program, a "Table 
Linkage Field" is created for it. This 
field is a control field utilized by table 
operations. The format of this field is 
illustrated in Figure 108. Significant sub¬ 
fields are described below. 

1. This subfield contains switches used by 
RPG (it is 1-byte long). 

2. This subfield contains the length of 
each table entry (it is 1-byte long). 

3. This subfield contains the number of 
entries in the table (it is 2-bytes long). 
long) . 

4. This subfield contains the address of 
the beginning of the table (length is 4 
bytes). 


5. This subfield contains the address of 
the end of the table (length is 4 bytes). 

6. This subfield is used by the RPG object 
program as a pointer to the selected 
table entry. For example, as the result 
of a LOKUP operation, this subfield 
contains the address of the correspond¬ 
ing function retrieved from the table 
when an equal is found in the argument 
table. (Length is 4 bytes.) 

7. This subfield is used by the object 
program as a transient work area. For 
example, as the result of a LOKUP opera¬ 
tion this subfield contains the data 
from the function retrieved from the 
table when an equal is found in the 
argument table. (This subfield is 
word-aligned and its length is equal to 
the length of a table entry.) This 
area is also called the "special holding 
area". 


The subroutine can use the data re¬ 
trieved from a preceding LOKUP operation 
by simply referring to TABnnn. (Assuming 
that TABnnn has been defined by an RLABL 
operation.) The effective address of any 
reference to TABnnn is the first byte of 
subfield 7. To access the table itself, 
the address contained in subfield 4 of the 
Table Linkage Field for TABnnn must be 
used. 


EXAMPLE OF EXIT TO A SUBROUTINE 


Figure 109 shows the coding steps necessary 
to implement the EXIT routine. 


1. An input file of the name INPUT turns 
on Result Indicator 01 if an X is in 
position 80. 

2. If the field AMOUNT is zero or blank, 
Field Indicator 02 is turned on. 

3. The operation SETOF defines (and sets 
off) Indicator 14 for the RPG program 
so that it can be subsequently defined 
for use in the subroutine. (This is 
performed only if Indicator 01 is 

on.) 

4. Whenever Indicator 01 is on, the calcu¬ 
lation specifications entry EXIT causes 
the program to exit to the user's sub¬ 
routine called TAXRTE. 
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Figure 108. Format of Table Linkage Field 
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5. Within the subroutine, the user wants 
three things: the AMOUNT field, and 
the Indicators 02 and 14. The RLABL 
operations enable the subroutine to 
reference the AMOUNT field, to test 
Indicator 02, and to utilize Indicator 
14 in the subroutine. 

6. In the subroutine, assume there is a 
field (TAXAMT) that the user wants to 
use on the output-format specifica¬ 
tions. If the field TAXAMT in the sub¬ 
routine is blank, the subroutine turns 


on Indicator 14. TAXAMT is referenced 
in the output specifications, but it 
will not be printed if Indicator 14 is 
on. If the user chooses, he can use 
it later in the calculation specifi¬ 
cations. The entry ULABL enables the 
field TAXAMT to be referenced by the 
RPG program. 

7. On the output sheet, TAXAMT is treated 
as a field. 

This concludes the description of tables 
and EXIT subroutines. 
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DISK STORAGE CONCEPTS 


This section of the manual is for readers 
not familiar with disk storage operations. 
It contains a general description of data 
organization and retrieval, and defines 
some of the terms you may encounter in 
related literature. 


INTRODUCTION AND TERMINOLOGY 

The distinction between two concepts is 
important: file organization and file 

processing . 

File Organization is the method of arrang¬ 
ing data records on a direct access storage 
device. A file is organized during the 
development stages of the application. 

File Processing is the method of retriev¬ 
ing data records from the file. 

To achieve the most efficient use of 
the System/360 components, carefully con¬ 
sider the relationship between how a file 
is organized and how to retrieve records 
from it. This is particularly important 
when designing data files for storage in 
a direct access storage device, such as the 
IBM 2311. 

The method of organization best suited 
to a particular file of disk records de¬ 
pends upon many factors. These factors 
must be analyzed for each file in each 
particular application. Frequently, you 
can use more than one method of process¬ 
ing on the same file. For example, records 
within a file might be processed at random 
during an updating run, and sequentially 
during a billing run. 

LOGICAL FILE VS PHYSICAL UNIT 

It is important to distinguish between a 
logical file and the physical unit used to 
store the file. A logical file is a group 
of related data records, such as a payroll 
file. 

A physical unit for storage of data 
records could be an IBM 2400-series Mag¬ 
netic Tape Unit, an IBM 2311 Disk Storage 
Drive, or an IBM 2501 Card Reader. 

A logical file may occupy part of a 
disk storage drive, an entire disk storage 
drive, or more than one disk storage drive. 
The location of the logical file in disk 
storage is defined by its lowest and 
highest addresses. This area is the extent 
area. One logical file can occupy more 
than one extent area. The extent areas 
do not have to be adjoining. 


DATA FILES 

Data files are recorded on such media as: 
paper, cards, tape, or disk packs. Data 
files consist of a number of individual 
records that range from a few records up 
to thousands or millions of records. 

RECORD 

A record can be defined as a collection of 
information consisting of alphameric and/ 
or nonalphameric characters related to a 
common identifier. The common identifier 
is known as a record's control field, or 
key . Usually, one of the fields within 
a record identifies the record. For exam¬ 
ple, man number could be the key or identi¬ 
fier for a payroll record. 

The size or length of records varies 
from file to file, and can be from eighteen 
characters to 4,000 characters. 

A single record usually includes one 
or more logical data fields. A data field 
is a sequence of one or more characters 
which is treated as a processing unit of 
information. An individual data field is 
normally identified by its location within 
a record. 

The logical structure of records and of 
fields within records is important in high¬ 
speed recording media such as magnetic 
tape and disk. This logical structure is 
strongly affected by whether a record is 
of fixed-or variable-length. 

FIXED-LENGTH RECORDS 

In fixed-length record files, all records 
are allocated the same number of character 
storage positions. Identical data fields 
are present in every record, whether they 
are used or not. The control field (key) 
is usually the first field present in a 
record. 

In many applications, fixed-length 
records would make inefficient use of 
file storage space. For example, a fixed 
record-length of 850 positions would waste 
storage and processing time, if the average 
record length is 230 positions and the 
minimum length is only 100 positions. 

Situations such as this require the 
development of space-saving techniques 
based on varying the number of storage 
positions allocated to data records. 

VARIABLE-LENGTH RECORDS 

Completely variable-length records are 
sometimes developed for more efficient 
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use of storage. In this approach, the 
data portion of the record may be of any 
length, but the key (control field) size 
is constant. A record-length character- 
count field in each record shows the 
length of a variable-length record. 

BLOCKING RECORDS 

The length of individual data records 
varies with type of data and the applica¬ 
tion that requires such data. The format 
of a data record is significant to the 
efficient use of the various storage media 
available on the System/360. One important 
element in the design of data records in¬ 
volves blocking and deblocking . Input/ 
output units (storage media) are relatively 
inefficient when used to record short 
blocks of information. To increase the 
efficiency of input/output units, data 
records are assembled into blocks of 
records whose sizes are convenient and 
efficient for processing. 

Each physical record on either tape or 
disk requires interrecord gaps. These gaps 
are blank areas used to distinguish begin¬ 
ning and ending points of a record. If 
records are blocked before loading onto a 
tape or disk, many of these gaps can be 
eliminated. Variable length blocks are 
permitted in Basic Operating System RPG. 

The length of a variable-length block is 
indicated by a block-length character- 
counter field present in each block. (See 
Variable-Length Records. ) 

The Basic Operating System handles the 
blocking and deblocking of records so the 
user need only determine the most efficient 
blocking factor for his particular data 
file and equipment specifications. The 
system also creates and maintains the 
block-length and record-length count 
fields; no programming for these facilities 
is required by the RPG programmer. 

In the Basic Operating System, only the 
input records for Indexed-Sequentially or 
Sequentially organized files can be 
blocked. 

FILE ORGANIZATION 

Data records should be organized and 
stored to facilitate subsequent process¬ 
ing. The three types of file organization 
are: sequential, indexed-sequential, 

direct. 

SEQUENTIAL ORGANIZATION 

The logical sequence of records in this 
file depends upon a significant key 
(control field) appearing in the records. 

To establish a sequentially-organized 
file, sort and then store the records in 
key sequence. This allows for records 


with successively higher or lower keys 
(control numbers) to have successively 
higher physical address numbers. Cards and 
tape files are always organized in this 
serial manner and usually are considered 
as one continuous " string" of records. 

INDEXED-SEQUENTIAL ORGANIZATION 

In this type of file organization also, 
the sequence of records depends upon a 
key (control) field. The records are 
stored sequentially in the file. This 
variation of file organization differs 
from Sequential organization in two ways: 

1. The records may be retrieved from the 

file sequentially or in a random 

sequence. 

2. Only records with transaction activity 

need be retrieved. 

These differences occur because 
Indexed-Sequential organization uses 
"index tables" which indicate to the pro¬ 
gram the general location of the records. 
Thus, the program does not have to "step 
through" the file, record after record, to 
locate a specific record. 

The index tables (prepared and main¬ 
tained by the Basic Operating System) are 
analogous to the index card file in a 
library. If you know the name of a book, 
or the author, you can look in the index 
and find the location of the book in the 
book files. 

For example, this might be an address 
(Catalog Number) of 426.25. You would 
then go to the book shelves, and (if it 
was your first time in the library) start 
at the first row of the book files and 
proceed through the rows until you found 
the shelf that contained 426.25. Usually, 
each row contains a sign to indicate the 
beginning and ending numbers of all books 
in that particular row. Thus, as you pro¬ 
ceed through the rows, you would compare 
426.25 with the numbers posted on each 
row. Assume that one row was labeled 
300.88-550.00. You would then search that 
row for the shelf that contained the book. 
Tne shelves (like the rows) might also 
contain number ranges to indicate their 
contents. In this case, you would scan 
the shelf numbers until you found some¬ 
thing like "342.00-440.96". Then you 
would look at individual book numbers on 
that shelf until you found "426.25". 

The RPG program uses index tables in 
much the same way to locate records 
organized in an Indexed-Sequential file. 

DIRECT ORGANIZATION 

In direct file organization, the records 
are generally not stored in the sequence 
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of their keys (control numbers) . A ran¬ 
domizing formula coverts the record key 
to a numerical address (physical address) 
of the storage device. The record is 
stored at the physical address developed 
by the randomizing formula. In effect, a 
file of records will be scattered through¬ 
out an entire disk file. 

RPG does not provide for creating files 
with direct organization. Creation of a 
file with direct organization must be ac¬ 
complished by the programmer using the 
input/output macro facilities of the as¬ 
sembler programming system. During the 
processing of the object program the user 
has the ability to exit to a subroutine to 
perform a randomizing routine upon the 
input data records. RPG cannot process 
duplicate records. (Duplicate records 
occur when two different control fields 
convert to the same physical address.) 

FILE PROCESSING 

For the three methods of file organization 
(sequential, indexed-sequential^ and 
direct) there are three methods of file 
processing : 

1. Sequential processing of sequentially 
organized files. 

2. Sequential processing of ihdexed- 
sequentially organized files. 

3. Random processing of indexed-sequen- 
tially organized files and directly 
organized files. 

SEQUENTIAL PROCESSING (Sequential files) 

In sequential processing of a sequentially 
organized file, every record in a file is 
examined, and each successive record in 
the physical file is processed in order. 
For example, in a card file, the card 
records are processed in the order that 
the cards are fed into the system. The 
14th card in the file could not be proc¬ 
essed until after the 13th card had been 
processed. 

SEQUENTIAL PROCESSING (Indexed-Sequential 
files) 

Sequential processing of an indexed- 
sequentially organized file has two 
variations^ 


1. An entire logical file is processed. 

For example, the physical unit consists 
of payroll records in cylinders 0 to 42 
and inventory records in cylinders 43 to 
99. Only the logical (payroll) file 
might be processed. 

2. Only a segment of a file is processed. 
For example, a payroll file is to be 
updated with new pay increases. The 


payroll file is in sequence by depart¬ 
ment, and each week the pay raises for 
various departments become effective. 
Therefore, on each week's processing, 
only segments of the payroll file are 
updated. The updating is accomplished 
by reading in a card file that contains 
the limits of the file to be processed. 
One such card record might indicate 
that the records for departments 25-41, 
are to be updated, another the records 
for departments 76-80, etc. 

RANDOM PROCESSING 

In random processing, the sequence of proc¬ 
essing has no relationship to the sequence 
in which the data is stored in the file. 

The data file could be organized in either 
a direct or an indexed-sequential order. 
This processing is sometimes called direct . 

Indexed-Sequential Files 

To find a random record in an Indexed- 
Sequential file, an index or series of 
indexes is first scanned to localize the 
area of search by determining the track 
that contains the record. The index is a 
sequential list of the key records (of the 
data) with corresponding track addresses. 
The entire track is then scanned to find 
the individual record to be processed. 

This kind of processing is referred to as 
processing in a random sequence with record 
keys. 

This type of processing is analogous to 
directing someone to a house location, 
i.e., "The Martin family lives on Har¬ 
rison Street", (a track address) "and their 
house number is 4216" (a key) . 

Direct Files 

To find a random record in a direct file, 
compute the track address by the same 
randomizing formula used to load the file 
of records. You can make direct access to 
the record. Index tables are not required. 
This kind of processing is called process¬ 
ing in a random sequence and it can be 
done using keys or record identification 
(ID). The record identification indicates 
only the location of the record on the 
track. For example, the 2nd, 12th, 18th, 
etc. record on the track. The program 
makes no comparison of key (control field) 
data when a record number is provided. 

This type of processing can also be 
compared to directing someone to a house 
location. "The Martin family lives on 
Harrison Street", (a track address)," 
and their house is the 5th house from 
the beginning of the street." (The 
5th is the record identification.) 
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If random processing is performed with 
key field only, the user supplies track 
address and record key field. Starting 
with this address the program searches the 
track for the corresponding record key. 

FILE PROCESSING IN RPG 


The preceding information in this section 
provided a general introduction to disk 
storage concepts for the Basic Operating 
System/360. The material that follows is 
a summary of file processing methods for 
the RPG program. 

RPG object programs process the 
following input file organizations: 

1. Sequential. 

2. Indexed-Sequential. 

3. Direct. 

This applies to update files as well. 

RPG will only create sequential output 
files. 

SEQUENTIAL ORGANIZATION 

The records on the file will be made avail¬ 
able for processing in the same order in 
which they are located on the medium. The 
file might be contained in cards, on mag¬ 
netic tape, or on a DASD. The entire file 
is processed, beginning with the first 
record and continuing until the file is 
depleted. 

The end-of-file condition is determined 
as the last card of the file is read. In 
the case of DASD, the extent of the file 
is obtained from the Basic Operating 
System. 

The records may be fixed- or variable- 
length and blocked or unblocked. 

INDEXED-SEQUENTIAL ORGANIZATION 

An indexed-sequential file can only be on 
a direct-access-storage device (such as 
disk) . 

RPG processes Indexed-Sequential files 
in three ways: 

1. Sequentially, by processing the entire 
file. 

2. Sequentially, by processing between the 
limits of the file. 

3. Randomly, by processing records on the 
file in a random order. 

The records may be fixed-length and 
blocked or unblocked. 

Processing the Entire File Sequentially 

The object program obtains the limits of 
the file from the Basic Operating System, 
and the entire file is processed sequen¬ 


tially by record key in ascending or 
descending record-key sequence. 

Processing Pa rt of the File Sequentially 


If only a part of the entire file is to 
be processed, the object program must be 
supplied with both the low and high keys 
that describe which part of the file will 
be processed. 

An auxiliary file is used to supply 
these limits. This file is called a Record 
Address File (RAF). The RAF does not con¬ 
tain data to be processed. It contains the 
record keys (in this case the limits) of 
the data records which will be processed. 

The object program obtains the limits 
to be processed from a record contained in 
a RAF and then processes all the data 
between those limits. The object program 
then reads another record in the RAF, and 
the procedure is continued until the RAF 
is depleted. 

Processing the File Randomly 

An indexed-sequential file may be processed 
randomly by supplying a RAF or a chaining 
file. Instead of supplying the limits (as 
in the case of sequential processing), the 
RAF or chaining file contains the record 
key of each record of the file to be proc- 
essed. 


DIRECT ORGANIZATION (RANDOM) 

A file with direct organization must reside 
on a direct access storage device. A 
direct file is always processed randomly. 
Records are retrieved from this file by 
using a track address and either a record 
key or record identification. The records 
must be fixed-length and unblocked. 

A direct file is processed randomly by 
supplying a record-address file or a chain¬ 
ing file. 

The RPG program or an external sub¬ 
routine must provide the necessary steps 
to convert the data fields contained in 
the RAF or chaining file to the track 
address and record key or record ID to be 
retrieved. 

The format of the track address that is 
created by the subroutine must be in the 
form MBBCCHHR. (Refer to the publication, 
IBM Basic Operating System/360, Supervisor 
and Input/Output Macros, 16 K Disk, 

The next two major sections of the 
manual are Processing Single Input Files 
and Processing Multiple Input Files. 

These sections describe disk storage proc¬ 
essing in the RPG program. In these sec¬ 
tions, processing methods are described 
in detail including specific examples of 
methods and of coding specifications. 
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PROCESSING SINGLE INPUT FILES 


In this section, the methods of retrieving 
records from one input file are discussed. 
Three types of file organization can be 
processed: Sequential, Indexed-Sequential, 

and Direct. 

If there is only one input file, it 
must be designated as the primary file by 
entering a P in column 16 of the File 
Description sheet. 

SEQUENTIAL FILE 

Figure 110 shows the coding on the File 
Description sheet necessary to process a 
sequential file. The name of the file is 
MASTERIN. The records are fixed-length, 
and the block length is 200. Each record 
is 200 characters long. A blank in column 
32 indicates that the file is a sequential 
file. 

PROCESSING AN INDEXED-SEQUENTIAL FILE 
BETWEEN LIMITS 

If only a part of an indexed-sequential 
file is to be processed, the object pro¬ 
gram must be supplied with both the low 
and high keys that describe which part of 
the file will be processed. Mode of Proc¬ 
essing (column 28) of the File Description 
sheet must contain L. 

The object program obtains the limits 
to be processed from a record contained in 
a RAF and then processes all data between 
those limits. The object program then 



Figure 110. Coding a Sequential File 
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Record Address File 




File Is To Be Processed From 
Bell To Dennis. These Names 
Are The Record Keys. 


Figure 111. Contents of the Record Address 
File 


reads another record in the RAF, and the 
procedure is continued until the RAF is 
depleted. 

In Figure 111, the first card of the 
record-address file shows that the object 
program is to process from Bell to Dennis. 
The second card shows that the object pro¬ 
gram is to process from Dixon to Howard. 

The third card shows that the third part 
of the file to be processed ranges from 
Keith to Paige. Thus, the data records 
that the program processes are contained 
with these limits. In this example, the 
record keys are customer names. 

The record-address file in this example 
is nothing more than a file which supplies 
limits of the file to be processed. Rules 
for forming record-address files are con¬ 
tained in Creating Record Address Files at 
the end of this section of the manual. 

Figure 112 illustrates the coding 
required on the File Description and File 
Extension sheets when limits of an indexed- 
sequential file are to be processed. In 
Figure 112, on the File Description sheet 
DISKIN is the name of the input file. The 
records are fixed-length, and the block 
length is 150. Each record is 150 charac¬ 
ters long. Limits of the file are to be 
processed as indicated by the L in column 
28. The K in column 31 indicates that the 
record key will be used to obtain the 
records from the file. 

The record-address file (RAFLIMIT) is 
also an input file. The R in column 16 
indicates that it is a RAF file. It is 
fixed-length; it has a block length of 80, 
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and each record is 80 characters in length. 
The length of each record-address field is 
6 characters. 

Because the File Extension sheet is 
required to relate the RAF to the 
DASD file, an E is entered in Extension- 

Code (column 39). On the File Extension 
sheet the coding illustrates that RAFLIMIT 
is to provide the addresses for DISKIN. 


RANDOM PROCESSING OF AN INDEXED-SEQUENTIAL 
FILE 

An indexed-sequential file may be processed 
randomly by supplying a RAF. Instead of 
supplying the limits (as in the case of 
sequential processing), the RAF contains 
the record key of each record of the file 
to be processed. 
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Figures 113 and 114 illustrate the 
specifications for this type of organiza¬ 
tion. In this example, the first record 
from the record-address file is read. The 
first RAF entry ADAMS is used to obtain 
the data record whose record key is ADAMS. 
The record is retrieved and is processed. 
The next entry, CABOT, is then used to find 
the next data record. 

PROCESSING FILES WITH DIRECT ORGANIZATION 

A file with direct organization must reside 
on a direct access storage device. Records 
are retrieved from this file by using track 
address and record key or record indentifi- 
cation. 
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Direct organization is specified by a D 
in column 32 of the File Description sheet. 
The mode of processing is random, and an R 
in column 28 indicates random processing. 

If the record key is used to obtain the 
records, enter a K in column 31. If a 
record ID is used, enter an I in column 31. 

When an RPG program processes an input 
file of this organization, an RAF must be 
supplied. The necessary steps must be 
supplied which convert the data fields con¬ 
tained in the RAF to the track address and 
the record key or record ID to be 
retrieved. The conversion routine depends, 
of course, on the way a particular data 
field can be converted to the track address 
of the record. 

The conversion routine is unique, 
according to the needs of a particular 
installation. It may be nothing more than 
supplying the information without any 
calculations. To retrieve records from 
the file, some data fields must be convert¬ 
ed to produce the track address of the 
record. 

Supplying Data to be Converted 

One entry in the RAF is supplied for each 
record to be retrieved. The data supplied 
by the RAF should be such that the track 
address and the record key or record 
identification can be derived. Because 
the RAF is not described on the input 
specifications, the entries in the RAF will 
be made available consecutively in a field 
called CONTD. This field is always alpha¬ 
meric, and it has the record length as 
specified in columns 29-30 of the File 
Description Specifications sheet. 

NOTE: The field CONTD is always predefined 

by RPG as an RPG Label (RLABL) 

Associating a Particular Conver sion 
Routine with RAF . 

The File-Extension specifications describ¬ 
ing the RAF contain a field name in columns 
27-32. This name is used as Factor 1 on 
the calculation specifications with the 
first specification of the conversion 
routine. 

Methods for Specifying a Conversion Routine 

Two methods of specifying a conversion 
routine to RPG are available: 

1. The conversion routine is written on 
the Calculation Specifications sheet, or 

2. The conversion routine can be written 
as an independent routine that must be 
combined with the generated object pro¬ 
gram. 


The first specification of the conversion 
routine defines the type of conversion by 
means of the operation codes RPGCV or 
EXTCV. If the conversion routine is coded 
on the Calculation Specifications sheet, 
RPGCV is specified. If the conversion 
routine is external to the RPG language, 
EXTCV is specified. 

External Conversion Routine 

If the conversion routine is external to 
the RPG language. Factor 2 must contain the 
name (or label) of the user-supplied rou¬ 
tine. This external conversion routine 
must follow the same conventions which are 
specified for the EXIT routine. See Use of 
Registers in this publication. 

The Result Field must contain the name 
(or label) of the field, in the subroutine, 
which will contain the track address of the 
record to be retrieved. This is the result 
of the conversion. 

Defining the Key or ID Field 

Regardless of whether an RPG or an external 
conversion routine is specified, if record 
key retrieval is used (rather than record 
ID) the next calculation specification 
entry must define the field that will con¬ 
tain the record key. 

The operation code is KEYCV, (a K in 
column 31 of the File Description sheet). 

The Result Field must contain the name (or 
label) of the field which will contain the 
actual record key used to locate the 
record. 

If record ID retrieval is used, an oper¬ 
ation code entry is not required. However, 
the File Description Sheet must contain an 
I in column 31. 

In either key or ID retrieval, the 
result field of EXTCV or RPGCV must be a 
track address in the form MBBCCHHR. 

Conversion Operation Codes 

The operation codes which follow are used 
in conjunction with conversion routines. 

If there are several conversion routines 
in the program, these codes are repeated. 

RPGCV. This operation code indicates that 
the conversion routine is coded on the 
RPG calculation sheet. 

ERPGC. This entr# terminates the RPG con¬ 
version step entries that have been 
coded on the calculation sheet. 

EXTCV. This entry indicates that the con¬ 
version routine is supplied by the user 
in a separate subroutine which is exter¬ 
nal to the RPG language. 
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KEYCV. This entry declares that the field 
specified in Result Field will contain 
the record key to be used with the track 
address. This entry must follow the 
RPGCV or EXTCV entry. 

In the example shown in Fig-ires 1 15 ^nd 
116 the data supplied in the RAF is 
both the record key and the data to be con¬ 
verted. The conversion routine shows how 
this field is then separated into two ele¬ 
ments. 

The field CONTD contains the 14- 
character field from the RAF. The first 
9 characters contain the customer name 
which is used as the key. The remaining 
5 characters contain a code for calculat¬ 
ing the track address of the customer's 
record. Line 04 of the Calculation 
Specifications sheet (Figure 116) moves 
the first part of CONTD to the key field 
(KEYFLD) and line 05 moves the remaining 
part to the work field (WORKFD). The 


alternating table on TABFIL is used to 
convert this 5-character code to the 8- 
character track address that is moved to 
the field TRKADR. 



Figure 115. Conversion of a Record Address 
File 
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Figure 117 shows how the calculation 
specifications would be coded if the con¬ 
version routine were external to the RPG 
language. 

USING THE ADDROUT (ADDRESS OUTPUT) OPTION 

ADDROUT is an output option of the IBM 
Basic Operating System/360 Sort/Merae pro¬ 
gram. This option can be used to put 
out a DASD file of records in a sequence 
other than the sequence in which the file 
is organized. For example, a payroll file 
that is organized in sequence by man number 
and department could be printed out in 
sequence by social security number. 

Instead of sorting the entire file by 
social security number. The Disk Sort Pro¬ 
gram merely sets up a new file. This file 
consists of records containing the addresses 
of the original data records. This new file 
has the effect of being a record-address 
file. That is, each record in this file di¬ 
rects the program to specific disk addresses 
to obtain the original data records in social 
security number sequence. 

Figure 118 illustrates the File Descrip¬ 
tion and File Extension Specification 
sheets for a DASD file containing a data 
file and an Address Output (ADDROUT) file. 

Address Output File 


The file name (FILETAG) is assigned to the 
ADDROUT file. It is an input file (I 
column 15); it is an RAF file (R column 
16) and the end-of-file condition is 
determined by this file (E column 17). 

The file format is fixed (F column 
19) as a requirement of the Disk Sort 
Program. 
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In this example, the block length is 
80 and record length is 10. 

The length of the record-address field 
(columns 29-30) is 10. The 10 bytes are a 
fixed requirement of the Disk Sort Program. 

The T in Type of File Organization 
(column 32) indicates that the file is the 
output of the ADDROUT option of the Disk 
Sort Program. The E in Extension Code 
(column 39) means that a File Extension 
Specification sheet is required. 

Original Data File 

The file name PRIMARY is assigned to the 
original data record file. It is an input 
file (I column 15). It is a primary file 
(P column 16). In this example, the file 
format is fixed (F column 19). The block 
length is 240 and the record length is 80. 
The mode of file processing is random (R 
column 28) . It is random processing be¬ 
cause the file is processed by social 
security number, but it is directly organ¬ 
ized in sequence by man number and depart- 
ment. 

The ADDROUT option uses record identi¬ 
fication to locate the records, therefore 
column 31 must contain an I. As a require¬ 
ment of the program, column 32 must contain 
a D, because the file is processed directly 
using absolute track addresses. 

File Extension Specifications 


The file extension specifications are used 
to identify, for the RPG program, the 
relationship of these two files. The 
name FILETAG (essentially an RAF) is 
specified in From Filename. The name 
PRIMARY is specified in To Filename b e- 
cause this is the file the RAF is linked 
to. 

Note that Table Name (columns 27-32) is 
left blank. This field would normally con¬ 
tain the name of the conversion routine 
that converts the data in an RAF to an 
address for a DASD. When the ADDROUT op¬ 
tion is used, no data conversion is neces¬ 
sary because the data in FILETAG is already 
in disk-address format. 

CREATING RECORD ADDRESS FILES (RAF) 

General Information 

A record-address file is one of the ways 
by which the necessary information to 
retrieve records from nonsequential files 
is supplied to the RPG program. Two types 
of record-address files may be used: 

1. For random processing of a file with 

Indexed-Sequential Organization or of 


a file with Direct Organization. 

2. For sequential processing between 
limits, of a file with Indexed- 
Sequential Organization. 

Only one RAF may be specified for an 
RPG program. An RAF is processed sequen¬ 
tially, and it must be on a file with 
sequential organization. An RAF is 
described on the File Description sheet 
and the File Extension sheet, but it is 
not described on the input specification 
sheet. 


Random Processing of Indexed-Sequential or 

Direct Organization 

These rules must be followed when creating 

an RAF for random processing: 

1. For Indexed-Sequential Organization, the 
record-address field contains the record 
key. 

For a direct organization, each 
entry in the RAF must consist of a field 
to be converted to the track address 
and to either the record key or the 
record ID. 

2. The record addresses must begin in 
position 1 of the record and continue 
without blank spaces between the record 
address fields. 

3. The length of the field must be the 
same for all records. The numeric 
fields must always be unpacked. 

4. The number of field entries in a record 
may vary. A blank field, which is equal 
in length to the record-address field, 
will cause the RPG program to read the 
next record in the RAF. 


Processing Limits of an Indexed- 
Sequential Organization 


When an RAF is used to indicate what limits 
of a file (with Indexed-Sequential Organi¬ 
zation) are to be processed, the following 
rules must be observed: 

1. Only two record-address entries can be 
in each record. 

2. The record-address entry must begin in 
position 1 of the record. The first 
entry indicates the low limit of the 
file to be processed. The second entry 
indicates the upper limit of the file. 
The program processes from the lower 
limit to the upper limit. 

3. The second entry of the record must 
begin in the position immediately 
following the first entry. No blank 
spaces are allowed. 
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PROCESSING MULTIPLE INPUT FILES 


Multiple input files may be processed using 
either the matching record technique or 
chaining. These two concepts are discussed 
here. 


SEQUENTIAL PROCESSING OF MULTIPLE INPUT 
FILES (MATCHING) 

The Matching Field e ntry, (entered in 
columns 61-62 on the Input Specifications 
sheet) determines which records of a 
secondary file are to be processed. Both 
files are processed sequentially. The 
following rules apply to the Matching 
Field entry. 


1. There can be three matching field 

specification entries (Ml, M2, and M3) 
per record. 


2. The locations of the matching fields 
within a record type of a file must re¬ 
main fixed. 

3. When there is more than one record type 
in an input file, the locations of the 
matching fields in the various types 
need not be the same. 

4. Not all the record types in a file must 
have a matching field. If an entire file 
is specified without matching fields, it 
will be read completely and processed 
first. 

5. If Ml, M2 and M3 are specified in the 
primary file. Ml, M2, and M3 must be 
specified in the secondary file. In¬ 
correct results will be obtained if the 
same number of matching fields is not 
specified. For example, Figure 119 
shows three record types. Record type 
AA has two matching fields, and record 
type BB has two matching fields. If 
record type BB has three fields, in- 
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Figure 119. Matching Field Entries 
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correct results would be obtained. and secondary files. Assume that two 

Record type CC has no matching fields files (in sequential organization) are 

(refer to step 4). used as shown in Figure 120. The primary 

file has records which contain heading 

The following example may be used to and rate information. The secondary file 

illustrate how the Matching Field specifi- contains detailed information which supple- 

cation is used in conjunction with primary ments the primary file. 



Primary File Secondary File 

(Heading and Rate Information) (Detail records) 


File Name: MASTER File Name: DETLABOR 

Figure 120. Two Input Files with Matching Records 
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The input specifications required to 
match these records are shown in Figure 
121 . 

The specifications Ml and M2 cause each 
detail record to be compared against the 
primary file's record that has just been 
read. The fields DIVSON and DETDIV in 
both files are identified by M2; the field 
department (DEPT and DETDEP) in both files 
is identified by Ml. 


Matching Record Indicator 

The matching field entries of Ml and M2 
(and also M3) have an associated internal 
indicator MR (Matching Record) . This 
indicator, which is similar to a resulting 
indicator, is used to control functions 
specified on the Calculation and Output- 
Format Specifications sheets. 

The MR Indicator is turned on when a 
record of a secondary file matches a 
record of the primary file. It remains 
on during the complete processing of the 


record, and it is turned off when all total 
calculations and printing that may be 
caused for this record are completed. 

If, as in Figure 120, a detail record 
does not have a matching primary record 
(card 035) or if a master record does not 
have a matching detail record (card 025), 
the indicator MR is not turned on. 

This indicator can be used on the cal¬ 
culation specifications to prevent calcu¬ 
lations upon a detail record contained in 
the secondary file. It could also be used 
on the output specifications to select 
unmatched detail cards. 

The matching-fields specification can 
be used even though not all of the record- 
types in the file contain the fields used 
for matching. When these record types are 
specified on the input sheet, the matching 
fields specification is left blank. This 
indicates to the program that these 
records types do not need to be checked 
for a matching field. These records are 
processed immediately after any total 
operations whose conditions are satisfied. 
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Figure 121. Specifying Matching Fields 
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Matching Fields Specified as Numeric or 
Alphameric 


files will be processed according to four 
possibilities: 


Numeric 

If a field, that is used as a matching- 
record field, has been specified as a 
numeric field (an entry has been made in 
Decimal Position) and it is not a packed 
field, all zone-bits in all positions of 
the record are removed before the compari¬ 
son of matching fields is made. 


Whenever 

record. 

there 

is 

Whenever 

record. 

there 

is 

Whenever 

record. 

there 

is 

Whenever 

record. 

there 

is 


a matching primary 
a matching secondary 
an unmatched primary 
an unmatched secondary 


Alphameric 

If a field used as a matching record field 
has been specified as an alphameric field 
(blank decimal positions), no zone-bits 
are removed from the record before'the 
comparison is made. 

Sequence of Assigning Matching Fields 

One, two, or three fields can be matched in 
one operation. However, if more than one 
field is matched, the designations of M3, 
M2, and Ml must be assigned in the same 
sequence in which the fields are to be 
arranged for matching. M3 is assigned to 
the highest-order field, M2 to the next 
lower-order field, and Ml to the lowest 
order field. 

For example, in Figure 121, only two 
fields are matched. Ml is assigned to 
DEPT which is the low-order matching field, 
and M2 is assigned DIVSON, which is the 
high-order matching field. 

The position in the record of the fields 
to be matched does not have to be the same 
in both files. For example, in Figure 121, 
the field DETDIV is located in positions 
1-4 of the detail records, and the field 
DIVSON is located in positions 28-31 of the 
rate-header records. 

Order of Processing Matched Records 

Figure 122 illustrates a primary and a 
secondary file. The records in the two 


In Figure 122, Indicator 01 is turned on 
whenever there is a primary record. Indi¬ 
cator 02 is turned on whenever there is a 
secondary record. Thus, 

1. A matching primary record will be coded 
01 and MR. 

2. A matching secondary record will be 
coded 02 and MR. 

3. An unmatched primary record will be 
coded 01 and NMR. 

4. An unmatched secondary record will be 
coded 02 and NMR. 

The order in which the primary file 
and the secondary file are processed is 
shown below. Sample Program Two uses the 
matching field specifications. 


Primary 

File 

Secondary File 

Matching 

Field 

In The 

Processed 

Matching 

Field 

In The 

Processed 

Record 


Record 


001 

1st. 

001 

3rd. 

001 

2nd. 

001 

4th. 

002 

5th. 

002 

6th. 

004 

9th. 

003 

7th. 

004 

10th. 

003 

8th. 

006 

12th. 

005 

11th. 


Primary File 


Secondary File 




Figure 122. Order of Processing Matched Records 
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If more than one secondary file is speci¬ 
fied, the secondary files will be processed 
in the sequence they are specified in the 
Input Specifications sheet. 

NOTE: Input Specifications for each file 

must be in the same sequence as specified 
on the File Description Specifications 
sheet. 

RANDOMLY PROCESSING MULTIPLE INPUT FILES 
(CHAINING) 

To understand chaining, assume that an 
input file, as shown in Figure 123, contains 
information about transactions made with 
several customers. The card file contains 
the customer's number, but it does not 
contain his name, address, or balance. An¬ 
other file called MASTCUST (Master Customer 
File) contains information about each custo¬ 
mer. The RPG object program has the ability 
to use the second file, when preparing a 
customer report. 

The master customer file has Indexed- 
Sequential Organization, and it is to be 
processed randomly. The record key in each 
disk record contains the customer's numbers. 
The field in the transaction file, which 
contains the customer's number, can be used 
to chain the files together. The object 
program takes the customer's number and lo¬ 
cates the record with the same record key. 


The additional information, such as the 
customer's name, address, balance, etc., is 
associated with each record key, and it is 
immediately available for processing. 

The field which links or chains a record 
of one file to a record in another file is 
called a chaining field. The transaction 
file (CARDIN) is called the chaining file. 

The master customer file (MASTCUST) is the 
chained file because it is linked to the 
transaction file. 

Up to nine chaining fields may be speci¬ 
fied. The chaining fields can be located in 
one or more files. The chaining fields are 
designated by entering Cl through C9 in col¬ 
umns 61-62 of the Input Specifications sheet. 

NOTE: There is no specific relationship be¬ 
tween levels C1-C9 other than specifying 
the nine possibilities for chaining fields. 

Chaining Example 

Figure 124 illustrates coding used for 
chaining the transaction file CARDIN to 
the customer file MASTCUST. 

File Description Specifications 

On the File Description sheet, the card 
file is considered the primary file. When 
CARDIN is depleted, the program goes to 
the end-of-job routine (E in column 17). 


Card Transaction File Master Customer File 

(Chaining File) (Chained File) 



Figure 123. Using Chaining to Process an Indexed-Sequential File 
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File Extension Specifications 

The File' Extension sheet contains the 
record Sequence of the CARDIN file and 
the number of the chaining field. 

Input Specifications 

On the Input Specifications sheet, the 
two files are defined. CUSTNO is the 
field which chains the files. 

Calculation Specifications 

When chaining is used, the following 
situation may occur. A chaining record 
(for example, JONES) has no corresponding 
chained record. (JONES is not present in 
the chained file.) Such a situation may 
require special action by the program. 

Indicators 01 and 02 are both on when 
a chaining record has a corresponding 
chained record. In this case 01 represents 
the chaining record, and 02 represents the 
chained record. When 01 and 02 are both 
on, AMPTD is subtracted from BALANC. How¬ 
ever, if there is no corresponding record 

in the chained file (01N02), Halt Indi¬ 
cator HI is turned on. Thus, the possi¬ 
bility of not having a corresponding 
record in the chained file is accounted 
for, and processing will terminate when 
this situation occurs. 

NOTE: This example illustrates the only 

time that two resulting indicators— 
representing two different record types— 
can be on at the same time. 

Additional Uses of Chaining 



Figure 125. Chaining to Two Files 


as one chaining field. The fields are 
placed in the same sequence as they are 
defined on the Input Specifications sheet. 

The first field defined on the input sheet 
is placed in the high-order position, and the 
the last field is placed in the low-order 
position. 


Figures 125 and 126 show two additional 
uses of chaining. In Figure 125, the card 
file contains two fields which are both 
used as chaining fields (salesman number 
and customer number). The field contain¬ 
ing salesman number is chained to a file 
that is organized by salesman number. The 
field containing the customer's number 
is used to chain to the customer file. 

In Figure 126, the card file is chained 
to the customer file. Within each customer 
record is a field which may be used to 
chain to another file. In this case, each 
record in the customer file contains an 
account number. The account number is 
used to chain to the account file. 

Split Chaining Fields 

Several fields that are not in adjoining 
positions in an input record can be speci¬ 
fied as one chaining field. The fields 
are specified with the same chaining code 
(Cl for example) on the Input Specifica¬ 
tions sheet, and the fields are then used 



Customer Account 

File File 


Figure 126. Using a Chained File as a Chain¬ 
ing File 
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CONVERSION OF CHAINING FIELDS FOR DIRECT 
FILE ORGANIZATION 

The data to be converted will be located 
in the fields designated as the chaining 
fields (Figure 127). The data field must 
be such that the record key or record ID 
can be derived from the conversion. The 
rules for conversion of a chaining field 
are the same as those for an RAF. 

Figure 128 illustrates the conversion 
routine that converts the data contained 
in a chaining field (Figure 127) to the 
track address and record key of the record. 

In this example, the conversion routine 
is coded on the Calculation Specifications 
sheet. On the File Description sheet, the 
two input files are described. TRANSREC 


TRANSREC MASTCUS 



Figure 127. Specifying a Random Disk Address 
by Converting an Input Record 
(Chaining File) 
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Figure 128. Conversion of a Chaining Field (Part 1 of 2) 
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Figure 128. Conversion of a Chaining Field (Part 2 of 2) 


is the primary file. MASTCUS is the DASD 
file that has. direct organization and is 
processed randomly. Since in direct or¬ 
ganization the key is separate from the 
data record, no entry is made in the Key 
Field Starting Location (columns 35-38) . 
The conversion routine supplies the track 
address and the record key. 

On the File Extension sheet, the record 
sequence of the chaining file (AA in 
column 17-18) is specified. The number of 
the chaining field is Cl. Both AA and Cl 
are taken from the Input Specifications 
sheet. TRANSREC relates to MASTCUS, so 
these file names are entered in columns 
11-18 and 19-26, respectively. The entry 
CONVER in columns 27-32 indicates that 
this label, when entered in Factor 1 of 


the Calculation Specification sheet, speci¬ 
fies the conversion routine. 

Two fields of the primary file, NAME 
and CUSNUM, are designated on the Input 
Specifications sheet as the chaining fields 
to be converted. 

The conversion routine is coded on the 
Calculation Specification sheet. The result 
field of the RPGCV entry (line 010) defines 
the field which contains the track address. 
The customer number, CUSNUM, is converted 
to the track address (lines 040-080) . The 
entry KEYCV defines the name of the field 
which contains the record key. In this ex¬ 
ample , the record key contains the cus¬ 
tomer's name which is obtained directly 
from the input data. 
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SUMMARY OF MULTIPLE FILE PROCESSING 
RPG processes multiple files two ways: 

1. Sequentially - by using the matching 
record technique 

2. Randomly - by using the chaining 
technique 

Figure 129 shows the processing possi¬ 
bilities for files which have Sequential, 
Indexed-Sequential, or Direct Organization. 

The numbers 1, 2, and 3 refer to the 
major subjects listed below. The letters A, 
B, and C refer to the subgroups. 

Files with Sequential Organization 

1. A file with sequential organization is 
processed sequentially and controls the 
processing of records in: 

A. Another Sequential Organization. 

Both files are processed sequen¬ 
tially, using matching records to 
govern processing. 

B. An Indexed-Sequential Organization. 

If the file is processed sequen¬ 
tially, the matching-record tech¬ 


nique is used to control processing 
of the Indexed-Sequential File. 

If the file is processed randomly, 
chaining fields in the sequential 
file specify which records in the 
Indexed-Sequential file are to be 
processed. 

C. A Direct Organization. A direct 

organization will be processed ran¬ 
domly, under control of the sequen¬ 
tial file. The sequential file will 
contain chaining fields which will be 
converted to the track addresses of 
the records on the Direct File. 

Files with Indexed-Sequential Organization 

2. A file with Indexed-Sequential Organiza¬ 
tion may be processed sequentially or 
randomly, and it controls processing of 
records in: 

A. A Sequential Organization. The 
records in both files will be proc¬ 
essed sequentially, using matching 
records to control processing. 

B. Another Indexed-Sequential Organiza- 
tion. If the file is processed se- 
quentially, matching records are used 
to control processing. (Both files 
are processed sequentially.) 


A 


B 


C 


From 

Sequential Organization 

Indexed-Sequential Organization 
(DASD) 

Direct Organization 
(DASD) 

Sequential 

Organization 

Sequential Processing 
(Matching) 

Sequential Processing 
(Matching) 
or 

Random Processing 
(Chaining) 

Random Processing 
(Chaining) 

Indexed- 
Sequential 
Organization * 

□ 

Sequential Processing 
(Matching) 

Sequential Processing a 

(Matching) 
or 

Random Processing 
(Chaining) 

Random Processing 
(Chaining) 

Direct (DASD) 
Organization + 

— 

Random Processing 
(Chaining) 

_ 

Random Processing 
(Chaining) 


* A Record Address File may be used to supply the limits (in the case of sequential processing) or the 
actual Record Keys (in the case of random processing), 
n The From File must be specified as sequential. 

+ A Record Address File is converted to supply the record locations on the DASD. 


Figure 129. Processing Multiple Input Files 
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If the file is processed randomly, 
chaining fields will be used to con¬ 
trol processing. 

C. A Direct Organization. Chaining 

fields in the indexed file are con¬ 
verted to supply the record locations 
in the direct file which will be 
processed. The direct file is proc¬ 
essed randomly. 

Files with Direct Organization 

3. A file with direct organization is proc- 
cessed randomly and controls processing 
of records in: 

B. An Indexed-Sequential Organization. 
The indexed file is processed ran- 
domly, and chaining fields in the 
direct file control processing of 
the indexed file. 

In both cases, the direct organi¬ 
zation is processed randomly. 

C * Another Direct Organization. 

Chaining fields contained within the 


direct file are converted to provide 
the location of the records in 
another direct organization. The 
records in both files are processed 
randomly. 

Updating a DASD File 

An RPG program may perform update proc¬ 
essing of a DASD file. The file may be of 
either indexed-sequential or direct organi¬ 
zation. The fields of records contained 
in the file may be changed, however, the 
size of the records may not be changed. 

It is not possible to add new records to 
a DASD file or to delete old records 
using RPG. Only records existing in the 
file may be processed. When an update 
file (U in Column 15 on the File Descrip¬ 
tion sheet) is processed, only the fields 
to be updated must be entered on the Out¬ 
put-Format Specifications sheet. Although 
the entire record is to be retained, only 
the affected fields are entered on the 
output sheet. 
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JOB SETUP 


RPG DECK ARRANGEMENT 


The deck prepared by the programmer will be 
arranged as shown in Figure 130. The con¬ 
tents of the Basic Operating System Job 
Control Statements are listed in System 
Control and System Service Programs (see 
Preface). 

The order in which the programmer places 
his control cards and source deck is as 
follows: 


1. Basic Operating System Job Control State¬ 
ments 

2. RPG Control Card (Processor Control Card) 

3. File Description Specifications 

4. File Extension Specifications 

5. Line Counter Specifications 

6. Input Specifications 

7. Calculation Specifications 

8. Output-Format Specifications 



RPG CONTROL CARD 

The contents of the RPG control card follow. 


Column 

Contents 

Explanation 

1-5 

xxxxx 

Page and Line numbers of 
the control card (can be 
00000) 

6 

H 

Identifies the card as a 
header card. 

7-16 

blank 

Not used; may be left 
blank. 

17 

1, 2, or 
blank 

If the Sterling shillings 
field on input is in the 
IBM format, punch 1 in 
this column. If it is in 
the BSI format, punch 2. 
Otherwise, leave blank. 

18 

1, 2, or 
blank 

If the Sterling pence 
field on input is in the 
IBM format, punch 1. If 
it is in the BSI format, 
punch 2. Otherwise 
leave blank. 

19 

0,1,2, or 
blank 

If the Sterling shillings 
field on output is in the 


IBM format, punch 1. If 
it is in the BSI format, 
punch 2. Otherwise leave 
blank or punch 0. The 
zero is allowed only for 
purposes of compatibil¬ 
ity; it is treated the 
same as a blank. 

20 0,1,2, or If the Sterling pence 

blank field on output is in the 

IBM format, punch 1. If 
it is in the BSI format, 
punch 2. Otherwise leave 
blank or punch 0. The 
zero is allowed only for 


Figure 130. RPG Deck Arrangement in the 
Basic Operating System Input 
Stream 


Column Contents Explanation 

purposes of compatibil¬ 
ity; it is treated the 
same as a blank. 

21 I or Inverted Print. If 

blank numeric literals and Edit 

words use the European 
conventions of punctua¬ 
tion (commas for decimal 
point and vice-versa), 
enter an I in this col¬ 
umn. Otherwise leave 
blank. 

22-25 blank Not used; may be left 

blank. 

26 A, or Alternate Collating Se- 

blank guence. Enter an A in 

this column, if an ex¬ 
ternal subroutine is used 
to translate the sequence 
of a matching field to 
the collating sequence of 
the System/360. If an 
external translating sub¬ 
routine is not used, 
leave this column blank. 

The name of the exter¬ 
nal subroutine is prede¬ 
fined by RPG to be 
ALTSEQ. 

27-74 Blank Not used; may be left 

blank 

75-80 XXXXXX Program Identification. 

Enter in these columns 
the program identifica¬ 
tion. 
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Column 


Contents 


Explanation 


Compile and Punch (DECK) 


If column75 is blank, 
the name RPGOBJ is used 
for program identifica¬ 
tion. 

The first four char¬ 
acters of the identifi¬ 
cation will be punched 
in Columns 73-76 of each 
card in the object pro¬ 
gram deck. Columns 77- 
80 of the object deck 
cards will contain a 
sequence number. 


EXECUTING RPG-INPUT STREAM VARIATIONS 

The input stream will vary considerably 
depending on the user's application. Fig¬ 
ures 131-138 show examples of the input 
stream for various combinations of control 
cards, source decks, user routines, and 
data decks. These examples assume that 
SYSEDR, SYSIPT, SYSPCH or SYS000, SYS001, 

SYS002, and SYS003 have been previously 
assigned. SYSPCH must be assigned when the 
DECK option is specified; SYS000 must be 
assigned when the LINK option is specified. 
It is assumed that SYSRDR and SYSIPT have 
been assigned to the same device unless 
otherwise stated. 

For detailed Link Edit information refer 
to System Control and System Service Pro¬ 
grams and for detailed Job Control informa¬ 
tion refer to IBM Basic Operating System/360 
Operating Guide (16K Tape) . The form num¬ 
bers for these manuals are listed in the 
Preface. 

RPG provides a choice of compiling and 
punching an object deck for later use or 
compiling and immediately executing the ob¬ 
ject program without punching an object 
deck. These options are called the DECK 
option and the LINK option, respectively. 
Only one of these options may be specified 
for an RPG input stream. Figure 131 shows 
a typical job setup for use of each of the 
options. 

Through the EXIT operand, the RPG user 
is allowed to incorporate subroutines writ¬ 
ten in Assembler language. For convenience, 
frequently used subroutines are maintained 
in the system Relocatable Library as de¬ 
scribed in the manuals System Generation and 
System Control and System Service Programs 
(see Preface). Figure 132 illustrates a 
typical job setup to compile and immediately 
execute an RPG program with the subroutines 
SUBRl and SUBR2 retrieved from the system 
Relocatable Library. The respective INCLUDE 
cards indicate that the two subroutines will 
be called from the system Relocatable 
Library. 


f7T 


rv 


source deck 


f // EXEC RPG 


^ // OPTION DECK,LIST 



w 


Compile and Execute (LINK) 


rv 


(V 


EXEC 


rv 


EXEC LNKEDT 


ENTRY 


f 




source deck 


r~ 


( // OPTION LINK,LIST 



y 


y 


*When data is in input stream it should always follow the EXEC (blank) card. 

Figure 131. Input Stream for Executing RPG 
(DECK and LINK Options) 



Figure 132. Input Stream for Executing RPG- 
User's Routines (SUBRl, SUBR2) 
Reside in the System Relocatable 
Library. 
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The user's subroutines may also be in¬ 
cluded as relocatable object decks in the 
input stream of a compile and execute job. 
Placement of all such subroutines is shown 
in Figure 133. 

Subroutines may be included both from the 
system Relocatable Library and in the input 
stream as relocatable object decks. The 


compile and execute job illustrated in Fig¬ 
ure 134 will incorporate subroutines from 
both the input stream (relocatable object 
decks) and the system Relocatable Library 
(R0UT1, ROUT2, CONVERT). 

The Disk and Tape Operating Systems 
provide the capability to assemble user 
subroutines within the same job as the RPG 
compilation. Assemblies can either precede 



Figure 133. Input Stream for Executing RPG- 
User's Subroutines are Object 
Decks in the Input Stream 



Figure 134. Input Stream for Executing RPG- 
User's Subroutines Reside in 
the Relocatable Library (R0UT1, 
R0UT2, CONVERT) and as Object 
Decks in the Input Stream 
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* DUMP OPTION desired for assembler program but not RPG program. 

+ DUMP OPTION not desired for RPG program, 

URPG program name used on ENTRY card because RPG was not the first program 
executed. 

Figure 135. Input Stream for Executing RPG 
with another System Program. 
Assemble User's routine and IN¬ 
CLUDE Subroutine from System 
Relocatable Library. 


or follow, or both precede and follow the 
RPG compilation. Figure 135 illustrates 
the job setups for assembly preceding and 
assembly following the RPG compilation. 

The job is to be compiled, then immediately 
executed incorporating the subroutine ACCT 
which resides in the Relocatable Library. 
Execution must always begin in the RPG 
produced object program; therefore, the RPG 
program name (TOTAL in the illustration) 
must be specified on the ENTRY card when¬ 
ever the RPG compilation is not the first 
program executed. 

It is not necessary to always assign 
SYSRDR and SYSIPT to the same device. When 
the two assignments differ the job setup is 
partitioned between the two devices. Figure 
136 illustrates the input stream for a iob 
when SYSRDR £ SYSIPT. The job control 
cards are placed in SYSRDR while SYSIPT con¬ 
tains the source deck and any associated 
data. 

Figure 137 illustrates a deck arrange¬ 
ment for a job processing data files and 
table operations. When both data files and 
tables are present and they are on the same 
device, the tables must always precede the 
data files. 



SYSRDR 



Figure 136. Input Stream for Executing RPG- 
SYSRDR £ SYSIPT 
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Figure 137. Input Stream for Executing RPG- 
Data Files and Tables 



Figure 138. Input Stream for Executing RPG- 
Labeled Magnetic Tape Linkage- 
Edited Job 


LABELED FILES 

If labeled magnetic tape files or direct 
access files are used when executing the 
object program compiled by RPG, it is nec¬ 
essary to supply label information to the 
Disk or Tape Operating System. 


Labeled Magnetic Tape File (TOS) 

Label information is supplied to TOS by 
placing the appropriate // VOL, // TPLAB 
and // NMTLB job control statements in the 
input stream. Figure 138 illustrates a 
compile and execute job in which one sub¬ 
routine (OTIME) is assembled within the 
job and a second subroutine (SERIAL) is 
retrieved from the Relocatable Library. 

The object program uses logical units 
SYS004 and SYS005 which are used as labeled 
files. For a detailed description of tape 
label handling refer to Systems Control 


and Systems Service Programs (see Preface). 


Labeled Magnetic Tape File (DOS) 

Label information is supplied to DOS by 
placing the appropriate job control state¬ 
ments in the input stream. These state¬ 
ments are the same as those illustrated 
in Figure 138 for TOS with the exception 
of // NMTLB which is replaced by // LBLTYP. 
This statement (// LBLTYP) must precede the 
// EXEC LNKEDT statement. 


Direct Access Sequential Disk File (DOS) 

Label information for a DASD file is 
supplied to DOS from each set of // VOL, 

// DLAB and// XTENT job control statements 
encountered in the input stream. Figure 
138.1 illustrates a deck set up for com¬ 
pilation of an object program that uses 
direct access sequential disk files. 


138.1 






















In addition to the job control statements 
required for a DASD sequential file, a 
// LBLTYP statement is required to use a 
nonsequential disk file. This job control 
statement must precede the // EXEC LNKEDT 
statement. Figure 138.2 illustrates a 
deck set up for compilation of an object 
program that uses a direct access non¬ 
sequential disk file. 


RPG OUTPUT DECK 


For a description of the format of the 
object deck cards (Figure 139) refer to 


System Control and System Service Programs 
and Language Specifications, Assembler 
(see Preface). 



Figure 138.1 Input Stream for Labeled 
Direct Access Sequential 
Disk File 



Figure 138.2 Input Stream for Labeled 

Direct Access Nonsequential 
Disk File 



Figure 139. RPG Output Object Deck 
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The following is a list of the cards 
necessary to assign logical units and com¬ 
pile and punch an RPG program. Job Control 
statements are described in the manual 
System Control and System Service Programs 
(see Preface)" 



Card 

Comment 

// JOB 

PAYROLL 

Job Name 

// ASSGN 

SYSPCH,X 1 00D' 

Program output 

// ASSGN 

SYSIPT,X 1 00C' 

Program input 

// ASSGN 

SYSLST,X 1 00E' 

Program listing 

// ASSGN 

SYSLOG,X 1 009' 

Job control output 

// ASSGN 

SYS001,X'181' 

Work File 1 

// ASSGN 

SYS002,X'182' 

Work File 2 

// ASSGN 

SYS003,X'183' 

Work File 3 

MTC 

REW,SYS001 

Rewind Work File 1 

MTC 

REW, SYS00 2 

Rewind Work File 2 

MTC 

REW,SYS003 

Rewind Work File 3 

MTC 

WTM,SYS001 

Write tape mark. 
Work File 1 

MTC 

WTM,SYS002 

Write tape mark, 
Work File 2 

MTC 

WTM,SYS003 

Write tape mark. 
Work File 3 

MTC 

REW, SYS001 

Rewind Work File 1 

MTC 

REW,SYS002 

Rewind Work File 2 

MTC 

REW, SYS003 

Rewind Work File 3 

// OPTION 

DECK,LIST 

Output deck and 
listing 

// EXEC 

RPG 

Call RPG compiler 
program 

.... source deck.... 

/* 

/& 

RPG specification 
statements 

End of source deck 
End of job 


The ASSGN cards are necessary only if the 
required logical files have not been pre¬ 
viously assigned. The hexadecimal unit 
assignments must correspond to the device 
addresses of the machine configuration being 
used for the RPG compilation. 

The MTC cards are necessary only if the 
work files have not been previously rewound 
and do not have a tape mark as the first 
record. 

SYMBOLIC I/O ASSIGNMENT 

All input/output devices used by the Disk 
and Tape Operating Systems Report Program 
Generator Processor and those referenced 
in the RPG Source Program require symbolic 
names assigned to them. The symbolic unit 
names applicable to each device appear in 
Table 4. 


STANDARD I/O ASSIGNMENT 

If two channels and five tapes are available, 
the recommended standard assignments for the 
System Resident Program, LINK file and three 
work files used by RPG are as follows: 

Channel 1: SYSRES System Resident Program 

SYS002 Work file 

Channel 2: SYSOOO LINK file 

SYS001 Work file 

SYS003 Work file 

OUTPUT LISTING 

The output listing (See Sample Pr og ram one ) 
provides: 

1. Listing of each specification with re¬ 
lated statement number and error notes. 

2. Resulting Indicator Table showing: 

a. Names of all RPG Processor and User 
defined Resulting Indicators 

b. Address (6 places) of each defined 
Resulting Indicator 

3. Field Name Table containing: 

a. Names of all fields 

b. Address (6 places) of each field. 

ENTRY or EXTERN type field names 
are denoted by ENTRY or EXTRN 

4. Literal Table containing: 

a. All literals and edit words 

b. Address (6 places) of each literal or 
edit word 

5. Diagnostic listing of erroneous entries 
showing: 

a. Statement number 

b. Name of the erroneous field or 
Resulting Indicator 

c. Appropriate error note 

6. Further specification diagnostics 

a. Statement number 

b. Appropriate error note 

7. Diagnostic notes. Refer to APPENDIX F. 

8. Memory Map listing names and addresses 
of RPG object program routines. 

9. The length (in hexadecimal) of the com¬ 
piled program not including the IOCS 
modules or any user subroutines. 

10. END OF COMPILATION message. 

OBJECT PROGRAM CANCELLATION 

During execution of the object program, job 
processing is cancelled when a halt indicator 
(H0-H9) is detected on (see Halt Indicators). 
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Table 4. Symbolic I/O Device Assignment 


SYMBOLIC 

UNIT NAME 

FUNCTION 

MAY BE 

ASSIGNED TO 

REMARKS 

SYSRES 

System Residence Unit 

Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Disk Storage Drive: 

2311 

May be either 7- or 9-track. If 7-track, 
the data-convert feature is required. 

SYSRDR 

Control Program Input Device 

Card Readers: 1442, 

2501, 2520, or 2540 
Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Tape units may be either 7- or 9-track. 

If 7-track, the data-convert feature is 
required. 

If 1052 is inoperable, SYSRDR must be 
assigned to a card reader 

SYSIPT 

Processing Program Input Device 

Card Readers: 1442, 

2501, 2520, or 2540 
Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Tape units may be either 7- or 9-track. 

If 7-track, the data-convert feature is 
required. 

If 1052 is inoperable, SYSIPT must be 
assigned to a card reader. 

SYSIPT and SYSRDR are generally assigned 
to the same physical device. 

SYSPCH 

Punched Output 

Card Punches: 1442, 

2520, or 2540 

Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Tape units may be either 7- or 9-track. 

If 7-track, the data-convert feature 
is required. 

If assigned to tape, must be unique tape 
unit. 

Required only if option DECK is 
specified. 

SYSLST 

Listings 

Printers: 1403, 1404, 

1443 

Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Tape units may be either 7- or 9-track. 

1404 is used for continuous forms only. 

If SYSPCH and SYSLST are assigned to 
tape, assignment must be to separate 
tapes. 

If 1052 is inoperable, SYSLST must be 
assigned to a printer. 

SYSLOG 

Operator Messages 

Printer-Keyboard: 1052 

If 1052 is inoperable, SYSLOG must be 
assigned to a printer. 

SYS000 

Compile and Execute 

Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Disk Storage Drive: 

2311 

May be either 7- or 9-track. If 7-track, 
the data-convert feature is required. 
Required only if using compile and exe¬ 
cute option (LINK). 

SYS001 

SYS002 

SYS003 

Work Files 

Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Disk Storage Drive: 

2311 

May be either 7- or 9-track. If 7-track, 
the data-convert feature is required. 

Mixed work files are not allowed. 

SYS001 

to 

SYS244 

I/O Operations for Processing 
Programs 

Card Readers: 1442, 

2501, 2520, or 2540 

Card Punches: 1442, 

2520, or 2540 

Printers: 1403, 1404, 

1443 or 1445 

Magnetic Tape Units: 

2401, 2402, 2403, 

2404, or 2415 

Disk Storage Drive: 

2311 

Tape units may be either 7- or 9-track. 

1404 is used for continuous forms only. 

It is recommended that SYS001-3 be re¬ 
served exclusively for work file usage 
and not be employed by user routines. 




SAMPLE PROGRAMS 


Three complete sample programs are included 
in this section. 


SAMPLE PROGRAM ONE 

The input file in the first program con¬ 
sists of punched cards. Each card in the 
file contains a data record that includes 
from one to eighty characters of informa¬ 
tion. Each data record represents a pur¬ 
chase made from the reporting firm by a 
customer. The types of information and the 
card columns in which each appears are 
shown in Figure 140. 


The labels assigned to the fields into 
which the object program will place the 
information are as follows: 


Field 

Label 

Customer Name 

NAME 

Invoice Data - Month 

MONTH 

Invoice Data - Day 

DAY 

Invoice Number 

INVNO 

Customer Number 

CUSTNO 

Customer Location 

STATE 

Customer Location 

CITY 

Invoice Amount 

INVAMT 


Figure 141 is an output listing of the 
sample program. 



i 


Columns 8 29l30 31132 33|34 38l39 4314445146 48l |74 80l 

Figure 140. Input File-Card Format 
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Figure 141. Output Listing 
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To produce an object program capable of 
writing the report shown in Figure 142, 
the programmer must prepare a source pro¬ 
gram as shown in Figure 143. The entries 
in the RPG specifications sheet are 
described here. 

FILE DESCRIPTION SHEET 

Two files (Input and Output) are described 
on this sheet. The input file INPUT (col¬ 
umns 7-11) is the primary file (column 16). 
It causes the end-of-job condition when it 
is depleted (column 17). The input records 
are fixed in length (column 19); the block 
length is 80 (columns 22 and 23); and the 
records are 80 characters in length (col¬ 
umns 26 and 27). 


The output file OUTPUT is also defined 
on the File Description sheet. The format 
is variable; the block length is 132 and 
the records are 132 characters in length. 
The entry OF in columns 33-34 indicate that 
the output file defined on the line is to 
cause the overflow condition. 

INPUT SPECIFICATIONS SHEET 

The input file has a sequence of AA # and if 
column 1 contains the zone of a minus. 
Resulting Indicator 01 is turned on (as 
indicated by the entries in 19-20, 24 and 
26-27). The locations of the fields which 
contain the input data are defined in col¬ 
umns 44-51. The names of the input fields 
are entered in columns 53-58. Whenever a 
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Figure 142. Printed Report 
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Figure 143. RPG Specification Sheets -- Program One (Part 1 of 2) 
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Figure 143. RPG Specification Sheets -- Program One (Part 2 of 2) 
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new customer number is read in, control 
level 1 is turned on (columns 59-60). 

CALCULATION SPECIFICATIONS SHEET 

The contents of the field TOTAL are added 
to the contents of the field INVAMT, and 
the result is stored in TOTAL, The result 
field has a length of seven positions, and 
two positions are reserved for the decimal 
portion. The field GRPTOT is added to 
INVAMT, and the result is stored in GRPTOT 
which is seven positions long, and has two 
decimal positions. 

OUTPUT FORMAT SPECIFICATIONS SHEET 

OUTPUT, the name of the file to which the 
records defined on the line belong, is 
entered under Filename on the first line 
of the sheet. In column 15 the output 


types, H, D and T are entered to designate 
the heading, detail, and total lines. 

The first heading line, ACCOUNTS RECEIV¬ 
ABLE REGISTER, prints either on the first 
page (IP) or overflow conditions (OF). The 
OR entered in columns 14 and 15 of the sec¬ 
ond line allows for printing on the first 
page or on overflow. The other heading 
lines also print on these conditions. 

When Output Indicator 01 is on, the 
field entered in Field Name will print in 
the positions indicated in columns 40-43. 
Zero suppression occurs on CUSTNO, STATE, 
CITY, INVNO, MONTH, and DAY. 

The total lines are to print whenever 
control fields LI or LR are on. The group 
total GRPTOT prints when LI is ON, and 
after it is printed, the contents of GRPTOT 
are blanked out. The final total is print¬ 
ed when the LR (last record) indicator is 
on. 
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SAMPLE PROGRAM TWO 

This is similar to the previous program. 

In this example, however, two input files 
are used. The Transaction File is a card 
file with fields as shown in Figure 140 of 
the previous program. Another input file 
(Master Customer File), which is on tape, 
contains information about the firm's cus¬ 
tomers (Figure 144). The fields contained 
in the two input files are illustrated in 
Figure 145. 

The program is to process the master 
customer file, using records from the 
transaction file, to produce printed 
receipts. The master file is updated, by 
producing a new master customer file. The 
coding required for this program is shown 
in Figure 146. 

FILE DESCRIPTION SHEET 

The four files are defined on this sheet. 
The two input files TRANSIN and MASTERIN 


Master Customer File Transaction File 

(MASTERIN) (TRANSIN) 



Figure 144. Sample Program Two 


are defined, and the two output files 
MASTEROT, which is the updated master file, 
and MASTLIST, which is the printed report, 
are defined on the file-description sheet. 
TRANSIN is designated as the secondary file 
because it may not contain transactions in¬ 
volving all the customers on the master 
customer file. TRANSIN is ascending in 
order. It has fixed-length records which 
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Figure 145. Input Fields - Sample Program Two 
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Figure 146. Specifications for Sample Program Two (Part 1 of 2) 
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Figure 146. Specifications for Sample Program Two (Part 2 of 2) 
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are 80 characters long. The block length 
is 80. 

MASTERIN is the primary file. If the 
transaction file does not have a corre¬ 
sponding customer number (specified by the 
Matching Fields specification on the input 
sheet) the master file is processed. Pro¬ 
cessing continues until all the records in 
the master customer file have been proces¬ 
sed (indicated by the E in column 17). The 
input records contained in the master cus¬ 
tomer file are ascending in order, fixed in 
length, and have a block length of 300. 

Each record is 100 characters in length. 

The file MASTLIST is the printed report. 
The format is variable. The length of the 
records can be 132. The overflow entry in 
columns 33-34 indicates that the overflow 
condition is to occur on the MASTLIST 
printer. 

The output file MASTEROT is a tape file 
which contains the updated master customer 
records. The output records are fixed in 
length, and are 100 characters in length. 

The block length is 300. 

NOTE: A blank in column 53 indicates that 

there are no labels in the output file. 

INPUT SPECIFICATIONS SHEET 

The two input files TRANSIN and MASTERIN are 
defined on the Input Specification sheet. 

TRANSIN: The input records may be ob¬ 

tained from three types of cards. 

Sequence AA has been assigned to two 
types. If card column 1 con-tains the zone 
of a minus, Resulting Indicator 02 is turn¬ 
ed on. If card column 1 contains the zone 
of a plus, Indicator 03 is turned on. The 
cards that have a minus in column 1 are 
selected into the 2 pocket (column 42). The 
locations of the input records and their 
labels are defined in columns 46-58 of the 
sheet. 

The field CUSTNO (customer number) has 
entries in columns 59-60 ( Control Level ) 
and columns 61-62 ( Matching Fields ) of the 
Input Specifications sheet. Whenever a new 
customer number is read in, control level 1 
(LI) is set on. This condition is tested 
on the output-format specification sheet to 
govern printing of total lines and to pro¬ 
duce the updated customer file. The entry 
in matching fields specifies that customer 
number will be used to match another field 
(CUSTNO) in the MASTERIN file. 

The first card in the transaction file 
is a date card. It is assigned sequence BB. 
Whenever column 1 contains a D, Indicator 
04 is turned on. The date is contained in 


columns 2-7 of the card. Indicator 05 is 
turned on whenever these columns are zero 
or minus. 

MASTERIN: The tape input file that con¬ 

tains information about the firm's customers 
is assigned sequence AA. The first entry 
under field name defines the entire record. 
This entry (RECORD) is made to enable the 
entire record to be referenced on the Output- 
Format Specifications sheet. CUSTNO of the 
master file corresponds to CUSTNO in the 
transaction file. Whenever a new customer 
number is read in, Ll is set. The entry Ml 
indicates that the customer number in the 
master file will be matched with the cus¬ 
tomer number in the transaction file. 

CALCULATION SPECIFICATIONS SHEET 

Whenever the Matching Record Indicator MR is 
on and Indicator 02 is on, the contents of 
the field AMT are added to the MASBAL. The 
result is stored in MASBAL. The date is 
moved to the field PAYDAT. 

Whenever the Matching Record Indicator 
MR is on and Indicator 03 is on, AMT is sub¬ 
tracted from MASBAL, and the result is 
stored in MASBAL. The date is moved to 
PAYPUR. 


OUTPUT-FORMAT SPECIFICATIONS SHEET 

The output file MASTEROT is the updated 
tape file. The entries in output indica¬ 
tors allow for the following. Whenever 
conditions 01 and NMR are satisfied 
(Resulting Indicator 01 is on and no match¬ 
ing record is present), the entire tape in¬ 
put record will be written out on tape. 

This condition results because there was 
no corresponding customer number in the 
transaction file for the master customer 
number. 

To keep the master customer file com¬ 
plete, the old input record is written out 
on the updated tape file when no informa¬ 
tion is present in the transaction file. 

If, however, Ll and MR are on, the in¬ 
put record is written out on tape. The 
entire record is written, but the fields 
MASBAL, PAYDAT, and PAYPUR contain the new 
entries based on the calculations. By 
coding the entries in this way, the new 
information for MASBAL, PAYDAT, and PAYPUR 
is entered on the master customer file, but 
the customer's name and address are retain¬ 
ed. 

The specifications for the printed 
report are listed under the name of the 
output file MASTLIST. 
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SAMPLE PROGRAM THREE 


The third sample (Figures 146.1 and 146.2) 
illustrates some of the more complex cap¬ 
abilities of RPG. 

1. Processing chained records on a Direct 


CARDIN 


CARDOUT 


INVFIL 



Card 
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Issues 

14-17 
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22-80 






Access Storage Device (DASD) . 

2. Updating records on a DASD. 

3. Multiple input and output files. 

4. Creating exception records. 

5. Providing for processing when a record 
in the chained file is missing. 
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Figure 146.1 Input and Output Formats for Sample Program Three 
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Figure 146.2 Specifications for Sample Program Three (Part 1) 


FILE DESCRIPTION SPECIFICATIONS 


The primary input file, designated by a P 
in column 16, is on the card reader and is 
labeled CARDIN. This card file also acts 
as a transaction file for the updating of 
the inventory records contained on the file 
labeled INVFIL. The U in column 15 of the 
specification for INVFIL indicates that 
this DASD file will be updated (used for 
both input and output). The file has 
direct organization indicated by the D in 
column 32, and will be processed randomly 
as specified by the R in column 28. 

The E in column 17 of the CARDIN file 
description entry directs the program to 
end execution when the last record of the 
CARDIN file has been processed. The E in 
column 39 indicates that a file extension 
specification has been coded for the 
CARDIN file. 


The output files are an exception card 
file labeled CARDOUT and the printed tran¬ 
saction report labeled PRINTOUT. 

CARDIN and CARDOUT consist of 80- 
character records. INVFIL has a block 
length of 125 characters and a record 
length of 125 characters. Record length 
for PRINTOUT is variable, with a maximum 
of 132 characters. 

FILE EXTENSION SPECIFICATIONS 

The file extension sheet identifies CARDIN 
as the chaining file, indicating that 
record sequence CC contains the chaining 
field Cl. INVFIL is the chained file and 
CONRTN is the RPG internal label of the 
specifications on the Calculation Specifi¬ 
cation sheet for the external conversion 
routine that processes the chaining field 
to obtain the track address in the DASD 
file. 
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Figure 146.2 Specifications for Sample Program Three (Part 2) 
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INPUT SPECIFICATIONS 

The input card and DASD files are described 
on the Input Specification sheet. Each 
field that will be used is defined. The Cl 
in columns 61-62 of the transaction card 
file designates the field labeled DTLPAR as 
the chaining field. The conversion routine 
CONRTN, indicated on the Calculation Speci¬ 
fication sheet, will make the DTLPAR field 
available to the user's external conversion 
routine. 


CALCULATION SPECIFICATIONS 

Two sets of calculation specifications are 
described. After the label CONRTN, the 
operation code EXTCV is used to indicate 
that the conversion routine is to be per¬ 
formed. ADDCON is the symbolic address of 
the external conversion routine. TRKADR, 
the field that contains the track address 
in the DASD file, must have a length of 
eight. The external routine may be in the 
relocatable library so that it can be auto¬ 


matically retrieved by the Disk Operating 
System program. The routine could also be 
punched in cards that follow the RPG cards. 

The operation code KEYCV states that the 
record key of the DASD record can be 
obtained directly from the field DTLPAR. 

The calculations in lines 030-070 
require the presence of corresponding chain¬ 
ing (CARDIN) and chained (INVFIL) records. 
This condition is indicated by the sim¬ 
ultaneous setting of resulting indicators 
01 and 03. The ONHAND field from the INVFIL 
record is zero and added to a work area 
(SAVE). Data fields RECPTS and RETURN from 
CARDIN records are added to SAVE; ISSUES 
are subtracted, when each input card for 
an INVFIL record is processed, the result¬ 
ing new ONHAND field in SAVE is compared to 
the minimum balance. If ONHAND equals the 
minimum, resulting indicator 05 is set on. 

If ONHAND drops below the minimum, result¬ 
ing indicator 04 is set on. The entry on 
line 080 resets the HO indicator which would 
otherwise terminate processing when a record 
in the chained file is missing. The print¬ 
ed output notes this error condition. 
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Figure 146.2 Specifications for Sample Program Three (Part 4) 


OUTPUT-FORMAT SPECIFICATIONS 

The PRINTOUT file's heading information can 
be printed under control of either result¬ 
ing indicator 02, which is set for the date 
card (the first card in the CARDIN -file) , 
or overflow (OF). The OF indicator will 
govern all heading printing after the first 
page. The entry PAGE in line 030 causes 
the page number to be updated automatically 
for each new page. 

The detail line described by the entries 
in lines 150 of Figure 146.2 (Part 3) 
through 050 of Figure 146.2 (Part 4) re¬ 
quires the presence of both the CARDIN and 
INVFIL records (resulting indicators 01 and 
03 on). If resulting indicator 04 is on, 
the words BELOW MINIMUM indicate the stock 
violation. If indicator 05 is on, the 
message EXPEDITE is added. 

The output line described in PRINTOUT 
entries 060-090 is the message printed when 
the error condition of a CARDIN record, and 


no corresponding INVFIL record occurs. 

This condition is identified by resulting 
indicator 01 being off when indicator 03 is 
on. 

The exception file CARDOUT will have a 
card punched for each transaction that 
results in a below-minimum or at-minimum 
stock level. These cards will contain the 
part number and description, vendor number, 
date, and the E or B code for EXPEDITE or 
BELOW MINIMUM. Below-minimum cards, 
identified by the simultaneous ON settings 
of indicators 01, 03, and 04, will be 
selected to stacker number P2. At-minimum 
cards, with indicators 01, 03, and 05 on, 
will be selected into stacker number RP3. 

Lines 180 and 190 provide for the updat¬ 
ing and writing out of the INVFIL records. 
If indicators 01 and 03 are both on, indi¬ 
cating that the INVFIL record has been 
updated by a CARDIN transaction, the new 
ONHAND is moved into its INVFIL location 
from the work area SAVE, and the record is 
written. 
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APPENDIX A: INDICATOR CHART 


Indicators 

Where Specified 

Where Used 

Turned On 

Turned Off 

Notes 

Resulting Indicator 

00 

Internal 

Output Indicators on 
Output Specifications 
(Columns 24 - 25, 

27 - 28, 30 - 31) 

This indicator is always 

ON 

Can never be turned 
OFF 


Resulting Indicators 
(01 - 99) 

Input Specifications 
(Columns 19 - 20) 

Indicators on Calcula¬ 
tion Specifications 
(Columns 10-11,13-14, 
16-17) 

Output Indicators on 
Output Specifications 
(Columns 24-25, 

27-28, 30-31) 

When specified record 
type has been read and 
is ready for processing 

Before the first record 
is read on the next 
processing cycle 

Turning OFF and ON can also 
be accomplished by using 

SETON and SETOF operation 
codes 

Calculation Speci¬ 
fications (Columns 
54-55 , 56-57, 

58-59) 

Same as above 

Whenever the specified 
field status condition 
is satisfied 

The next time that 
this field status is 
to be tested 

Same as above 

Field Indicators 
(01 - 99) 

Input Specifications 
(Columns 65-66, 
67-68, 69-70) 

Same as above 

Same as above 

Same as above 

Same as above 

Halt Indicators 
(HO - H9) 

Input Specifications 
(Columns 65-66, 
67-68) 

Calculation Speci¬ 
fications (Columns 
54-55, 56-57, 

58-59) 

Same as above 

Same as above. HO is 
automatically turned 
on for the conditions 
listed in Appendix G 

Can only be turned 
OFF by SETOF 
operation code 

See Note 

If these indicators remain ON, 
the object program will termi¬ 
nate before reading the next 
record 

LR 

Internal 

Same as above and 
Calculation Speci¬ 
fications (Columns 

7-8) 

After processing the last 
record of the last file 


All Control Level Indicators 
(LI-L9) are also turned ON 
when the LR is turned ON 

Control Level 

Indicators 

(L1-L9) 

Input Specifications 
(Columns 59-60) 

Same as above and 
Calculation Specifi¬ 
cations (Columns 7-8) 

When the value in a control 
field changes. All indi¬ 
cators of the lower levels 
are also turned ON 

Before the first record 
is read on the next 
processing cycle 

Turning OFF and ON can be 
accomplished by using SETON 
and SETOF operation codes 

L0 

Internal 

Indicators on Calcula¬ 
tions Specifications 
(Columns 10-11,13-14, 
16-17) 

Output Indicators on 
Output Specifications 
(Cols. 24-25,27-28, 
30-31) 

This indicator is always 

ON 

Can never be turned 

OFF 


MR 

Internal 

Same as above 

When multiple input files 
and the matching fields 
specification are used,this 
indicator is turned ON if 
a secondary file record 
matches the primary file 
record 

Before the first record 
is read on the next 
processing cycle 


Overflow Indicators 
OA, OB, OC, OD 
OE,OF,OG,OV 

File Description 
(Columns 33-34) 

Same as above 

When Channel 12 of the 
carriage control tape is 
sensed 

After the detail and 
heading records are 
written 

These indicators remain ON for 
one complete processing cycle 

IP 

Internal 

Output Indicators on 
Output Specifications 
(Columns 24-25,27- 
28,30-31) 

This indicator is ON atthe 
beginning of processing 
before any records are 
read 

Before the first record 
is read 

This indicator is used to govern 
printing of the first page of the 
report 





























































































3. General Logic RPG Object Program with 
Chaining File which Requires Conversion 
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4. General Logic for RPG Object Program 
with RAF which Requires Conversion 


5. 


General Logic for RPG Object Program 
with RAF and Chaining Files 





















APPENDIX C: 


STERLING ROUTINES FOR THE REPORT PROGRAM GENERATOR 


The RPG sterling routines furnish users with 
a convenient and time-saving means of hand¬ 
ling sterling amounts. The presence of 
sterling fields is indicated to the RPG pro¬ 
gram by additional entries in the input and 
output specifications forms and in the con¬ 
trol card. The file description, file ex¬ 
tension, and calculation forms are not 
affected. 

Sterling input information can be repre¬ 
sented in two formats: IBM and BSI as 
described in the control card. The RPG 
sterling routines convert the input fields 
into a pence-format field. A pence-format 
field is a sterling amount represented in 
pence. If the output is to be printed, the 
fields are converted with shillings and 
pence printed in two positions each with 
zero suppression in effect in the tens 
position of each field. If the output is 
not printed, the output is converted to 
either BSI or IBM formats. 

NOTE 1: On both input and output the pounds 
field must consist of at least one, and no 
more than nine positions. 

NOTE 2: BSI or IBM input files of one pro¬ 
gram must use the same code combination 
throughout. 

INPUT SPECIFICATIONS 

The position of the sign must be specified 
in columns 71-74. Enter an S in column 74, 
if the sign is in the normal position. If 
the pence field has decimal positions, the 
normal position of the sign is in the right¬ 
most decimal position of the pence field. 

If the pence field has no decimal positions, 
the normal position of the sign is in the 
units position of the pounds field. 

NOTE 1: One of the digits 0, 1, 2, or 3 
must be entered in column 52, to indicate 
the number of reguired decimal positions. 

NOTE 2: It is not permissible to use the 
same name for both a sterling field and a 
decimal field. 

NOTE 3: The sign of the field must contain 
a numeric underpunch. 

OUTPUT SPECIFICATIONS 

The position of the sign for sterling out¬ 
put fields must be specified in columns 71- 
74 in the same manner as for sterling input 
fields. The sterling sign will always 
appear on output whether the field is plus, 
minus, or zero. 


OUTPUT WHICH IS NOT PRINTED: The field 
may be specified as any combination of IBM 
or BSI shillings and pence formats. The 
sign may appear anywhere within the record. 
When outside the field, the sign will be 
supplied with a zero underpunch. 

PRINTED OUTPUT: The normal sign position 
must be used. Insert the letter S in col¬ 
umn 74 of the Output Specifications Sheet. 

NOTE 1: Shillings and pence are printed in 
two positions each, with zero suppression in 
effect in the tens positions of each field. 

NOTE 2: The pounds field consists of at 
least one and no more than 9 positions. 

Zero suppression on the pounds field may be 
obtained by placing Z in column 38 of the 
specification sheet. The sign will not be 
suppressed since its position depends on 
the presence or absence of decimal pence. 

NOTE 3: If a field is defined as a sterling 
field in the input but not in the output 
specification, the output will be in pence 
format.' 

NOTE 4: Editing is allowed only on printed 
output files. The rules governing the use 
of edit control words are the same as those 
for decimal fields. The features available 
are: 

1. Zero suppression in the pounds field. 

2. Zero suppression in the shillings field, 
if both pound and shilling values are 
zero. 

3. Zero suppression in the pence field, if 
pound, shilling and pence values are 
zero. 

4. Suppression of zeros preceding signs, 
and suppression of separation marks be¬ 
tween pounds and shillings, shillings 
and pence, and pence and decimals. 

CONTROL CARD 

To select the required sterling routines, 
the RPG program needs information regarding 
the input and output formats. This infor¬ 
mation is entered in four columns of the 
RPG processor control card. The entries 
are: 1 for IBM Code, 2 for BSI Code. 

CALCULATION SPECIFICATIONS 

While no additional entries are required in 
this form, the user should keep in mind that 
all calculations are done in pence format. 
This must be considered when defining the 
length of result fields or when using Fac¬ 
tors 1 and 2. 
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Lengths of Pence-Format Fields 

If a pence-format result field is to be re¬ 
converted into a sterling output field, the 
highest amount it is permitted to contain is 
239, 999, 999, 999.999. This converts to a 
field containing nine pounds positions 
which is the maximum allowed. 

NOTE: In order to avoid the possible loss 

of the high order digit, fields that are 
read in as IBM or BSI sterling always con¬ 
tain one more position when put out as IBM 
or BSI sterling. For example, the five 
position sterling input field 9919+ (IBM 
format) converts to the five position pence 
field 23999. Since the RPG compiler in 
putting out this field must allow for a five 
position pence field containing up to 99999 
pence (which converts to 416133, IBM for¬ 
mat) , the field on output will be six posi¬ 
tions long. 

Pound Sterling Formats 


COLUMN 18 (STERLING-PENCE FIELD ON IN¬ 
PUT) IBM FORMAT: The pence option on the 
input field is as listed here: 

0-9 Pence by a 0-9 punch, 

10 Pence by an 11-punch, 

11 Pence by a 12-punch. 

BSI FORMAT: The pence option on the in¬ 
put field is as listed here: 

0-9 Pence by a 0-9 punch, 

10 Pence by a 12-punch, 

11 Pence by an 11-punch. 

COLUMNS 19 (STERLING-SHILLINGS FIELD ON 
OUTPUT) IBM FORMAT: Two positions are 
allowed for the shilling option on the out¬ 
put field: 

00-19 for 0-19 shillings 

BSI FORMAT: The shilling option on the 
output field is as listed here: 


RPG will support, on the input and .output 
fields, two standards for pence and shill¬ 
ing portions of sterling fields: IBM or 
BSI. Columns 17-20 of the RPG Processor 
Control Card indicate either the IBM or BSI 
formats. The formats for IBM and BSI are 
listed here. 

COLUMN 17 (STERLING-SHILLING FIELD ON 
INPUT) IBM FORMAT: Two positions are allow¬ 
ed for the shilling option in the input 
fields: 00-19 for 0 to 19 shillings. 

BSI FORMAT: The shilling option in the 
input fields is indicated as listed here: 


0-9 Shillings by a 0-9 punch, 

10 Shillings by a 12-punch, 

11-19 Shillings by an A-I punch. 


COLUMN 20 (STERLING-PENCE FIELD ON OUT¬ 
PUT) IBM FORMAT: The pence option on the 
output field is as listed here: 


0-9 Pence by a 0-9 punch, 

10 Pence by an 11-punch, 

11 Pence by a 12-punch. 

BSI FORMAT: The pence option on the 
output field is as listed here: 


0-9 Shillings by a 0-9 punch, 

10 Shillings by a 12-punch, 

11-19 Shillings by an A-I punch. 


0-9 Pence by a 0-9 punch, 

10 Pence by a 12-punch, 

11 Pence by an 11-punch. 
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APPENDIX D: CONVERSION ROUTINE OPERATION CODES 


The following list shows the relation¬ 
ship between conversion routine operation 
codes and how they are specified. 


1“ ' 

I 

I- 

I 

I 

I 

I— 

I 

I 

r 


CODE 

1 

FACTOR 1 

1 

FACTOR 2 

1 

RESULT FIELD 

RPGCV 

_1 _ 
1 

1 

I 

Reference 

Name 

1 

“r 

i 

l 

i 

No entry 

- 4 -- 

1 

1 

1 

Label of the field 
which will contain 
the track address 
of the record. 

EXTCV 

1 

1 

1 

Reference 
. Name 

i 

i 

i 

i 

Name or 
Label of 
the user's 
routine. 

I 

1 

-4-- 

Label of the field 
which will contain 
the track address 
of the record. 

-- 

-j-- 

— 

—- 

--- - . 

KEYCV 

1 

1 

1 

None 

i 

i 

i 

i 

None 

1 

1 

1 

Label of the field 
which will contain 
the key of the record 
to be located. 


__|_FOLLO' 


ERPGC 


None 


None 


None 


-L 

I 

I 

I 

+- 


SPECIFICATIONS THAT MAY 
FOLLOW THIS ENTRY 


KEYCV 


KEYCV 


If RPGCV has been used, 
the conversion steps 
follow KEYCV . 

If EXTCV has been used, 
any other RPG calculations 
follow. 


j ronow. 


L. 


.L 


_L 


_1 


Any other calculations in 
the RPG program. 
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APPENDIX E: SUMMARY OF RPG SPECIFICATION FORMS 


This summary contains a brief column-by- 
column description of each of the six RPG 
specification forms. The purpose of the 
summary is to provide the user with a con¬ 
cise reference guide. 

The first five items are common to all 
six specification forms. 

Page 1-2 

Enter number of specification page. Assign 
ascending numbers to the pages of each pro¬ 
gram specification set to collate in the 
following sequence: 

File Description Specifications 
File Extension Specifications 
Line Counter Specifications 
Input Specifications 
Calculation Specifications 
Output-Format Specifications 

Line 3-5 

First two digits of line number are pre¬ 
printed. Use third position (column 5) 
to identify additional lines to be insert¬ 
ed between two preprinted lines. 

Form Type 6 

Contains a pre-printed code (F, E, L, I, C, 
or 0) which must be punched into all RPG 
specification cards. 

Comments 7 

Enter an asterisk (*) in each line to be 
used exclusively as a comments line. 

Program Identification 75-80 

Insert any information to identify certain 
cards or portions of an RPG source pro¬ 
gram. 

FILE DESCRIPTION SPECIFICATIONS 
Filename 7-1 4 

Enter a name for each file used in the pro¬ 
gram. Names must be left-justified. 


File Type 15 

Enter one of the letters I, 0, U, or C 
to identify Input, Output, Update, or 
Combined file. 


File Designation 16 

P for primary, S for secondary input or 
combined files. Enter P if only one in¬ 
put file or combined file is used. C 
for chained file, R for RAF or 
ADDROUT file, or T for table file. Leave 
blank for output files. 

End of File 17 

Enter E for each input file or combined 
file that is to be checked to determine 
when the last record has been read and 
processed (LR indicator on). Leave blank 
if LR is to be turned on when the last 
record of all input and combined files 
has been read. 


Sequence 18 

Required when Matching Fields is used. 

A if the input file or combined file is 
in ascending sequence, D if it is in de¬ 
scending sequence. Leave blank for out¬ 
put files, or for input or combined files 
without Matching Fields . 

File Format 

F : Fixed-length records. 

V : Variable—length records. 

Block Length 20-23 

Unblocked 

If the records are unblocked, enter the 
length of a record. If variable-length 
records are used, enter the length of the 
longest record. 

Blocked 

If the records are blocked, enter the 
length of the largest block. 

Record Length 24-27 

Used to enter the length of the logical 
records contained in the file. If the 
file contains records that are variable in 
length, enter the length of the largest 
record. 
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Mode of Processing 28 

Used to indicate the method or mode by 
which the file is processed. Enter an L in 
this column if a segment of the file is to 
be processed. Enter an R in this column if 
the records are to be processed randomly. 

If no entry is made in this column for the 
file, the entire file will be processed 
sequentially. 

Length of Record Address Field 29-30 

If the file is a record-address file, enter 
the number of positions that each entry in 
the RAF occupies. 


If the output file is a printer, enter 
PRINTER. 

If the file is an I/O file and it is 
associated with a card reader or card 
punch unit, enter: 

READ01 IBM 2501 Card Reader 

READ20 IBM 2520 Card Read-Punch 

READ40 IBM 2540 Card Read-Punch 

READ42 IBM 1442 Card Read-Punch 

If the file is an I/O file and it is 
associated with a tape unit enter TAPE. 

If the file is associated with a 2311 
Disk Storage Drive, enter DISK11. 


Record Address Type 31 


Symbolic Device 47-52 


If the records from the file are retrieved 
by using record keys, enter a K in this 
column. If record ID is used to retrieve 
records, enter I in this column. 

Type of File Organization 32 


Leave blank if the file is organized 
sequentially. Enter an I if the file has 
indexed-sequential organization. Enter a 
D if the file has direct organization. 
Enter a T if the file is the output from 
the ADDROUT (Address Output) option of the 
Disk Sort Program. 


Valid entries are: 


SYSRDR 

SYSLST 

SYSIPT 

SYSPCH 

SYS001— 

SYS244 


System Card Reader 
System Printer 
System Input Unit 
System Punch Unit 
Any input or output 
unit 


NOTE 1: Input units containing files 
organized in indexed-sequential or direct 
organization must be assigned Symbolic 
Device codes of SYS001-SYS244 


Overflow Indicator 33-34 

If overflow indicators are used, enter the 
overflow indicator associated with the 
file. A maximum of eight overflow indica¬ 
tors is allowed: OA, OB, OC, OD, OE, OF, 
OG, and OV. 

Key Field Starting Location 35-38 

Indicates the location of the key field 
within the data record. Enter the start¬ 
ing position of the key field. 

Extension Code 39 

Indicates that additional information about 
the file is coded on the File Extension 
Specification sheet, or Line Counter Speci- 
fic ation sheet. 

Enter an E if the file defined on the 
line is a: 


NOTE 2: If the logical file extends over 
more than one physical unit, the device 
codes must be adjoining. 

Labels 53 

S Standard Labels. 

E Standard Labels Followed by User- 
standard Labels. 

N Non-Standard Labels. 

b No Labels. 

Name of Label Exit 54-59 

Enter the name of the routine to process 
non-standard labels. If the entry is 
shorter than six characters, it must be 
left-justified. 


Chaining file 
Table file 

Record Address file (RAF) 

Tag (Address) file (from the 
ADDROUT option) 

Device 40-46 

Relates a file to a specific type of in¬ 
put or output unit. 


Extent Exit for DAM 60-65 

Enter the name of the routine written to 
receive information regarding the extent 
of the file. 

The name can be either alphabetic or 
numeric, but the first character must be 
alphabetic. If shorter than six charac¬ 
ters, it must be left-justified. 
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Comments 66-74 

Enter any desired comments. An asterisk 
in column 7 must not be used if this type 
of comments is in a line containing speci¬ 
fic ations. 

FILE EXTENSION SPECIFICATIONS 

Record Sequence of the Chaining File 7-8 

Used only for chaining files. Enter the 
same entry that is made for the chaining 
file in Sequence on the Input Specifica¬ 
tion sheet. 

Number of the Chaining Field 9-10 

Used only for chaining files. Enter the 
identifying number of the chaining field. 
This number is entered in Chaining Field of 
the Input Specification sheet. 

From Filename 11-18 

Used in conjunction with To Filename to 
identify — for the RPG program — the 
relationship between two files. For 
example, they provide the name of a chain¬ 
ing file and the name of the file that is 
chained to it. 

To Filename 19-26 

(See description above) 

Table Name 27-32 

Enter name of table: 

for alternating input format, 
enter name of table to which 
the first entry in each input 
record belongs; 

for non-alternating input format, 
enter name of single table. 

For a RAF or chaining file, specify the 
label of the address conversion routine. 
Table .name must consist of 6 characters, 
the first 3 must be TAB, the remaining 3 
may be any alphabetic or numeric characters. 

Number of Table Entries Per Record 33-35 

Enter the maximum number of table entries 
(arguments or functions) that are contain¬ 
ed in each input record. The entry must 
be right-justified. 

Number of Table Entries Per Table 36-39 

Enter the maximum number of table entries 
(arguments or functions) contained in the 
table. The entry must be right-justified. 

Length of Table Entry 40-42 

Enter the length of each table entry. The 
maximum size of a numeric entry is 15 
characters, of an alphameric entry 256 


characters. The entry must be right- 
justified. 

Packed 43 

If the data in the table is in the packed- 
decimal format, enter P in this column. 
Otherwise, leave this column blank. 

Decimal Positions 44 

If the data contained in the table is 
numeric, enter the number of decimal posi¬ 
tions (1-9). Enter a zero if there are no 
decimal positions. If the field is alpha¬ 
meric, leave this column blank. 

Sequence 45 

If the data contained in the table is in 
ascending sequence, enter an A; in descend¬ 
ing sequence, enter a D. Leave blank if the 
data is not in ascending or descending 
sequence or if this specification is not 
required. 

Table Name 46-51 

If alternating arguments and function 
tables are used, enter the second table 
name. It must be of the form TABnnn. The 
entry must be left-justified. 

Length of Table Entry 52-54 

Enter the length of each table entry. The 
maximum size of a numeric entry is 15 
characters; of an alphameric entry 256 
characters. The entry must be right- 
justified. 

Packed 55 

Enter a P if the data in the table is in 
the packed-decimal format. Otherwise, 
leave this column blank. 

Decimal Positions 56 

If the data contained in the table is 
numeric, enter the number of decimal posi¬ 
tions (1-9). Enter a zero if there are no 
decimal positions. If the field is alpha¬ 
meric, leave blank. 

Sequence 57 

If the data contained in the table is in 
ascending sequence, enter an A; in descend¬ 
ing sequence, enter a D. Leave blank if 
the data is not in ascending or descending 
sequence or if this specification is not 
required. 

Comments 58-74 

Leave columns 58-74 blank, unless com¬ 
ments are entered in these columns. 


161 



LINE COUNTER SPECIFICATIONS 
Filename 7-14 

Enter the name of the output file. 

Line Number (1) 15-17 

Enter the number of the first line con¬ 
trolled by the carriage tape in columns 
15-17. 

The remaining specifications (items 
2-12) perform the same function. 

Channel Number (1) 18-19 

Enter the channel number corresponding to 
the line number in columns 15-17. The re¬ 
maining specifications (items 2-12) perform 
the same function. 

INPUT SPECIFICATIONS 

Filename 7-14 

Enter a file name for each input or com¬ 
bined file, one entry per file. Must be 
left-justified; it may have up to 8 char¬ 
acters; first character must be alphabetic; 
remaining characters may be alphabetic or 
numeric; special characters or embedded 
blanks may not be used. 

AND/OR Relationship 14-16 

Enter AND to indicate that the AND-rela- 
tionship of Record Identification Codes in 
the preceding line is to be continued. 

Enter OR (columns 14 and 15) to indicate 
that the entries in Record Identification 
Codes of this line are to be in an OR-rela- 
tionship to the entries in the preceding 
line. 

Sequence 15-16 

Enter a number, beginning with 01 for each 
file and continuing in consecutive se¬ 
quence to 99, to specify sequence-checking 
of card types. Enter leading zeros. Enter 
any two alphabetic characters to indicate 
that sequence-checking is not required. 
Lines with alphabetic entries in Sequence 
must precede lines with numeric entries. 

Any numeric entry in Sequence requires 
an entry in Number. 

Number 17 

1 indicates that one and only one record 
of a specific record type should be 
present in each group. 

N indicates that one or more records of a 
specific record type may be present in 
each group. (Used only with numeric 
entry in columns 15-16.) 


Option 18 

0 indicates that a record of a specific 
control group used need not be present. 
Leave blank if a record must be present, 
or if records are non-sequential. (Used 
only with numeric entry in columns 15- 
16.) 

Resulting Indicator 19-20 

Enter any indicator from 01 through 99 to 
establish a two-digit code for the input- 
record type defined in Record Identifica¬ 
tion Codes . This sets special condition(s) 
in the object program each time the input 
record is read. 

Record Identification Codes 21-41 

This field is divided into three identical 
sub-fields: columns 21-27, 28-34, and 35- 

41. An AND-relationship exists between 
these three sub-fields. 

Position. Enter the number of input record 
column containing the identifying code. 

Must be right-justified. 

Not (N). Enter N if the code described 
must not be present in the position speci¬ 
fied. Otherwise leave blank. 

C/Z/D . Enter D if only the digit portion 
of the specified position is to be checked. 
Enter Z if only the zone portion is to be 
checked. Enter C if both portions are to 
be checked. 

Character . If C/Z/D contains C or D, enter 
any one of the 256 EBCDIC characters. 

If C/Z/D contains Z, enter: &, A through 
I, or 0 to check for a 12-zone; -, j 
through R, or 0 to check for an 11-zone; 

S-Z for 0-zone; 0 through 9, or blank to 
check for the absence of zones. 

NOTE: Record Identification Codes may be 

continued in the subsequent specification 
line by means of an AND entry for AND- 
relationship s or an OR entry for OR- 
relationships. 

Stacker Selec t 42 

Enter number of stacker to which input 
cards are to be selected. Leave blank for 
single-stacker devices and for combined 
files. 


Packed 43 

P if input data in packed-decimal format. 
Blank if input data in standard format. 
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Field Location 44-51 

This specification describes location of 
fields in input records. 

F rom(44-47) . Enter number of input-card 
column containing first position of field 
specified in Field Name . 

To (48-51) . Enter number of input-card 
column containing last position of field 
defined in Field Name . Entries must be 
right-justified; leading zeros may be 
omitted. 

Decimal Positions 52 

Used only for numeric fields. Enter a 
digit 0 through 9 to indicate number of 
decimal positions in input field. Leave 
blank for alphameric fields. 

NOTE: Each input field that is to be used 

in arithmetic operations must have an entry 
in Decimal Positions . Also use this speci¬ 
fication for fields that are to be edited 
or zero-suppressed. 

Field Name 53-58 

Enter the name of each field defined in 
Field Location. Field names may be up to 
6 characters in length; left justified. 
First character must be alphabetic; remain¬ 
ing characters may be alphabetic or 
numeric. Special characters or embedded 
blanks may not be used. 

Control Level 59-60 

Enter any one of the control-level indi¬ 
cators LI through L9 to identify control 
fields. (LI for lowest level, L9 for high¬ 
est level of control.) 

Matching Fields or Chaining Fields 61-62 

Enter any one of the codes Ml, M2, or M3 to 
specify record-matching for two input 
files, or to specify sequence-checking for 
the fields of a single input file. 

Enter the codes Cl through C9 to specify 
a chaining field. 

Field-Record Relation 63-64 

Enter any one of the indicators defined in 
cols. 19-20 of the Input Specifications to 
provide field-record relation for identical 
fields contained in different locations 
(OR-relationships), or for selective proc¬ 
essing of chaining fields. 

Field Indicators 65-70 

If the field is alphameric, i.e., if column 
52 is blank, only the Zero or Blank speci¬ 
fication may be used. Enter any one of the 


indicators 01 through 99 or HO through H9, 
as required, in each of the fields. Indi¬ 
cator in Plus (columns 65 and 66) is turned 
on, if the field specified in columns 53-58 
contains a positive value, except +0. 
Indicator in Minus (cols. 67 and 68) is 
turned on if the field contains a negative 
value, except -0. Indicator in Zero or 
Blank (cols. 69 and 70) is turned on if the 
field contains no other character than zero 
or blank. It is also turned on if the 
field is numeric and contains no other 
character than +0 or -0, or when a Blank 
After output specification is executed. 

Sterling Sign Position 71-74 

Used only for programs processing sterling 
currency amounts. If sign of Sterling 
field is in normal position, enter S in 
Column 74. If sign is not in normal posi¬ 
tion, enter the position in the record that 
contains the sign. Leave blank in all 
other RPG programs. 

CALCULATION SPECIFICATIONS 

Control Level 7-8 

Enter one of control level indicators LI 
through L9, L0, or LR to specify that the 
calculation contained in this line is to be 
performed at total time. Leave blank if 
calculation is to be performed at detail 
time. 

Indicators 9-17 

Enter one to three indicators to establish 
conditions controlling calculation speci¬ 
fied in the line. Any of the indicators 
01 through 99, Ll through L9, L0, LR, MR, or 
any halt or overflow indicator may be used. 
Columns 9, 12, and 15 may contain blank 
or N. 

NOTE: If there is more than one indica¬ 

tor in a line, RPG assumes an AND- 
relationship between the individual indi¬ 
cators. 

Factor 1 18-27 

Field name — left-justified, maximum 

length 6 characters. Do not 
use special characters or 
embedded blanks. First char¬ 
acter must be alphabetic. 

Must be defined in Input 
Specifications or as a result 
field in another Calculation 
Specification. 

Literal — numeric : left-justified, 
maximum length ten charac¬ 
ters, characters must be 
numeric (0 through 9), one 
decimal symbol and/or one 
sign (plus or minus) allowed. 
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If a sign is present, it must 
be in the first position of 
the field. 

alphameric : left-justified 

must be enclosed in apostrophe 
symbols ('), maximum length 
8 characters, any one of the 
256 EBCDIC characters may be 
used. * 

Apostrophe symbols re¬ 
quired within constants must 
be represented as two consec¬ 
utive apostrophe symbols. 

Operation 28-32 

Enter one of the RPG operation codes. An 
entry in this specification is required in 
each line, except in a comments line 
defined by an asterisk in column 7. 

Entries must be left-justified. 

Factor 2 33-42 

Enter field name or literal to be used in 
the specified operation. (For a definition 
of Field Name and Literal, see Factor 1.) 
Entries must be left-justified. 

Result Field 43-48 

Enter field name to designate location in 
storage into which result of pertinent 
operation is to be placed. First character 
of field name must be alphabetic; remain¬ 
ing characters may be alphabetic or 
numeric, cannot contain special characters 
or embedded blanks. Must be left-justi¬ 
fied . 

Field Length 49-51 

Enter number of storage positions to be 
reserved for Result Field on this line. 
Maximum length of numeric result fields is 
15 digits. Maximum length of alphameric 
result fields is 256 characters. Must be 
right-justified. May be left blank, if 
length of result field specified in this 
line is defined in a previous line of cal¬ 
culation specifications, or in input speci¬ 
fications . 

Decimal Positions 52 

Enter number of decimal positions (0 
through 9) to be reserved in result field. 
Required for all numeric result fields 
used with arithmetic*operations. Must be 
blank if the result field is alphameric. 

NOTE: The number of decimal positions is 

included in Field Length specification in 


columns 49-51. E.g., if a number of deci¬ 
mal positions specified is 7, the maximum 
number of positions to the left of the 
decimal symbol is 15 - 7 =8. (The maximum 
length of a numeric field is 15.) 

Half Adjust 53 

Enter H to specify half-adjustment of re¬ 
sult field. Must be blank if result 
field is alphameric. 

Resulting Indicators 54 - 59 

Any one of the indicators 01 through 99, HO 
through H9 and LI through L9 may be used for 
this specification. 

Arithmetic Operations : enter up to 3 indi¬ 
cators to be turned on whenever the result 
of an arithmetic operation is positive 
( Plus , columns 54 and 55), or negative 
( Minus , columns 56 and 57) , or zero ( Zero , 
columns 58 and 59). 

Compare Operations : enter up to 3 indica¬ 
tors to be turned on whenever result of 
COMP operation is Factor 1 > Factor 2 
( High , columns 54 and 55) , or Factor 1 < 
Factor 2 ( Low , columns 56 and 57), or Fac¬ 
tor 1 = Factor 2 (Equal, columns 58 and 59) . 

LOKUP Operations : enter one or two indi¬ 
cators in High, or Low, or Equal, or High 
and Equal, or Low and Equal. (This defines 
type of entry to be located by means of 
LOKUP operation.) 

TESTZ Operations : enter up to 3 indicators 
to be turned on whenever a 12-zone ( High , 
columns 54 and 55), or an 11-zone ( Low , 
columns 56 and 57), or any other zone or 
no zone ( Equal, columns 58 and 59) is 
detected in the field specified in 
Result Field of this line. 


SETOF, SETON Operations : enter up to 3 
indicators to be turned on (SETON) or off 
(SETOF). If more than 3 indicators are to 
be turned on (or off), specify another 
SETON (SETOF) statement in subsequent line. 
Any RPG indicator can be used, except L0. 

NOTE: Headings HIGH, LOW, EQUAL do not 

apply to indicators specified in conjunc¬ 
tion with SETOF or SETON operations. 

Comments 60 - 74 

Enter any desired comments. An asterisk in 
column 7 must not be used if this type of 
comment is in a line containing specifica¬ 
tions . 
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OUTPUT-FORMAT SPECIFICATIONS 
Filename 7-14 

Enter name of each output file. Names must 
be left-justified. 

AND/OR Relationships 14-16 

Enter AND for records in an AND- 
relationship. Enter OR for records in an 
OR-relationship (Columns 14 and 15). 

Type 15 

H — identifies heading line 
D — identifies detail time output 
T — identifies total time output 

Stacker Select 16 

Enter number of stacker to which cards are 
to be selected. Leave blank for single¬ 
stacker devices. 

Space 17 - 18 

NOTE: At least one entry is required in 

columns 17-22 if the line is to be printed. 

Before Enter 0, 1, 2, or 3 to specify 0, 

1, 2, or 3 lines spacing before printing. 
Leave blank if no space before printing is 
required. 

After. Enter 0, 1, 2, or 3 to specify 0, 

1, 2, or 3 lines spacing after printing. 
Enter zero to specify no space after print¬ 
ing . 

Skip 19-22 

Before. Enter any number from 01 through 
12 to specify skipping before printing to 
channel 01 through 12 of the carriage con¬ 
trol tape. Leave blank for no skip before 
printing. 

After. Enter any number from 01 through 12 
to specify skipping after printing 01 
through 12 of the carriage control tape. 

Output Indicators 23-31 

Enter up to three RPG indicators to iden¬ 
tify files or to describe fields. Columns 
23, 26, 29 must contain blank or the 
letter N. 


Field Name 32 - 37 

Enter any field name defined in either 
Input Specifications or Calculation Speci¬ 
fications. Leave blank for constants spec¬ 
ified in Constant or Edit Word . Use field 
name PAGE to cause automatic page number¬ 
ing. 

Zero Suppress 38 


Enter Z if leading zeros of a numeric field 
are to be suppressed and the sign is to be 
stripped from the rightmost position. 

Leave blank if leading zeros are not sup¬ 
pressed, or if field specified in Field 
Name is alphameric or if line contains a 
constant or an edit word. 

Blank After 39 

Enter B to reset alphameric output fields 
to blanks or numeric output fields to 
zeros. Reset occurs after execution of the 
specified output operation. 

End Position in Output Record 40 - 43 

Enter position in output record to contain 
rightmost character of output field. 

Packed Field 44 

Enter P if output data in packed-decimal 
format. Leave blank if data in standard 
format. 

Constant or Edit Word 45. - 70 

Constant . Enter any required constant. 

Must be enclosed in apostrophe symbols. 

May consist of any of the 256 EBCDIC char¬ 
acters. Maximum length is 24 characters. 

Apostrophe symbols required within con¬ 
stants must be represented as two consecu¬ 
tive apostrophe symbols. 

Edit Word . Enter any edit word to specify 
editing with respect to punctuation, print¬ 
ing of dollar symbols, sign status, zero 
suppression, etc. Edit words must be 
enclosed in apostrophe symbols. 

Sterling Sign Position 71 - 74. 

Provided for programs processing sterling 
currency amounts. Leave blank for all 
other RPG programs. 
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APPENDIX F 


DIAGNOSTIC NOTES 


NOTE 

000 

NOTE 

001 

NOTE 

002 

NOTE 

003 

NOTE 

004 

NOTE 

005 

NOTE 

006 

NOTE 

007 

NOTE 

008 

NOTE 

G09 

NOTE 

010 

NOTE 

on 

NOTE 

012 

NOTE 

013 

NOTE 

014 

NOTE 

015 

NOTE 

016 

NOTE 

017 

NOTE 

018 

NOTE 

019 

NOTE 

020 

NOTE 

021 

NOTE 

022 

NOTE 

023 

NOTE 

024 

NOTE 

025 

NOTE 

026 

NOTE 

027 

NOTE 

028 

NOTE 

029 


NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

FILE TYPE ICOLUMN 15) IS INVALID. SPECIFICATION IS NOT PROCESSED. 

INVALID ENTRY IN COLUMNS 28, 31, OR 32. SPECIFICATION IS NOT PROCESSED. 

RECORD ADDRESS FIELD (COLUMNS 29-30) HAS INVALID LENGTH, IS MISSING OR IS NOT 
RIGHT-JUSTIFIED. ENTRY OF 08 IS ASSUMED FOR RAF FILE. ENTRY OF 10 IS ASSUMED 
FCR ACDROUT FILE. 

MORE THAN ONE RECORD ADDRESS FILE IS PRESENT. SUCCEEDING ONES ARE NOT 
PROCESSED. 

EXTENSION CODE (COLUMN 39) IS INVALID. ENTRY OF L IS ASSUMED. 

INPUT FILE .DESIGNATION (COLUMN 16) IS INVALID OR MISSING. ENTRY OF R IS ASSUMED 
FCR TAG FILE. OTHERWISE S IS ASSUMED. 

OVERFLOW INDICATOR ICOLUMN 33) IS NOT 0. ENTRY OF 0 IS ASSUMED. 

OVERFLOW INDICATOR (COLUMNS 33-34) IS INVALID. ENTRY OF OA IS ASSUMED. 

MORE THAN ONE PRIMARY FILE IS SPECIFIED. FILE IS ASSUMED TO 8E A SECONDARY 
FILE. 

MODE OF PROCESSING (COLUMN 28) IS INVALID. ENTRY OF R IS ASSUMED. 

FIXED FORMAT IS SPECIFIED, YET BLOCK LENGTH IS NOT A MULTIPLE OF RECORD LENGTH. 
8L0CK LENGTH IS INCREASED TO NEXT HIGHEST MULTIPLE. 

TYPE OF FILE ORGANIZATION (COLUMN 32) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

END-OF-FILE CODE (COLUMN 17) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

SEQUENCE (COLUMN 18) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

MODE OF PROCESSING (COLUMN 28) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

RECORD ADDRESS TYPE (COLUMN 31) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

EXTENSION CODE (COLUMN 39) IS INVALID. ENTRY OF E IS ASSUMED. 

FILE FORMAT (COLUMN 19) IS INVALID. ENTRY OF F IS ASSUMED FOR INDEX SEQUENTIAL. 
OTHERWISE ENTRY OF V IS ASSUMED. 

BLOCK LENGTH (COLUMNS 20-23) IS MISSING, INVALID, LESS THAN THE RECORD LENGTH, 

OR NOT RIGHT-JUSTIFIED. BLOCK LENGTH IS ASSUMED EQUAL TO RECORD LENGTH. 

RECORD LENGTH (COLUMNS 24-27) IS MISSING, INVALID, OR NOT RIGHT-JUSTIFIED. 

RECORD LENGTH OF 0080 IS ASSUMED. 

FILENAME (COLUMNS 7-14) IS MISSING, INVALID, OR NOT LEFT-JUSTIFIED. 

SPECIFICATION IS NOT PROCESSED. 

OUTPUT FILE DESIGNATION (COLUMN 16) IS NOT BLANK. ENTRY OF BLANK IS ASSUMED. 

PROGRAM EXCEEDS LIMIT OF TEN VALID FILE NAMES. ADDITIONAL FILE DESCRIPTION 
SPECIFICATIONS WILL BE TREATED AS COMMENTS. 

KEY FIELD STARTING LOCATION (COLUMNS 35-38) IS INVALID, NOT RIGHT-JUSTIFIED, OR 
NOT LESS THAN RECORD LENGTH. ENTRY OF 0001 IS ASSUMED. 

DEVICE (COLUMNS 40-46) IS INVALID. SPECIFICATION IS NOT PROCESSED. 

SYMBOLIC DEVICE (COLUMNS 47-52) IS INVALID. SPECIFICATION IS NOT PROCESSED. 

•LABELS' (COLUMN 53) IS INVALID. ENTRY OF S IS ASSUMED. 

NAME GF LA EEL EXIT (COLUMNS 54-59) IS MISSING, INVALID, OR NOT LEFT-JUST I FI ED. 
SPECIFICATION IS NOT PROCESSED. 

EXTENT EXIT (COLUMNS 60-65) IS MISSING, INVALID, OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 
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NOTE 


NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 


030 MORE THAN ONE RECORD ADDRESS FILE IS SPECIFIED ON FILE EXTENSION SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 

031 * FROM FILENAME' (COLUMNS 11-18) IS NOT SPECIFIED AS ON FILE DESCRIPTION 

SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

032 EXTENSION CODE (COLUMN 39) IS NOT £. SPECIFICATION IS NOT PROCESSED. 

033 LENGTH OF TABLE ENTRY (CCLUMNS 40-42 OR 52-54) EXCEEDS 256 CHARACTERS FOR AN 
ALPHAMERIC FIELD. ENTRY OF 256 IS ASSUMED. 

034 CHAINING FIELD (COLUMNS 9-10) IS MISSING, INVALID, CR NOT RIGHT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

035 NUM8ER OF FIELD NAMES EXCEEDS ALLOCATED CORE STORAGE. ADDITIONAL SPECIFICATIONS 
CONTAINING CONVERSION OR TABLE NAMES WILL NOT BE PROCESSED. 

C36 'TO FI L.ENAM E * (COLUMNS 19-26) IS NOT SPECIFIED AS ON FILE DESCRIPTION 
SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

037 'TO FILENAME' (CCLUMNS 19-26) IS NOT SPECIFIED AS A CHAINED FILE ON FILE 
DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 


038 LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) EXCEEDS 15 DIGITS FOR A NUMERIC 
FIELD. ENTRY OF 15 IS ASSUMED. 

039 CONVERSION ROUTINE (COLUMNS 27-32) IS MISSING, INVALID, OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

040 'TO FILENAME* (COLUMNS 19-26) IS NOT SPECIFIED AS A PRIMARY OR SECONDARY FILE ON 
FILE DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

041 TABLE SEQUENCE (COLUMNS 45 OR 57) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

C42 TAELE NAME (COLUMNS 27-32 OR 46-51) IS MULTI-DEFINED. SPECIFICATION IS NOT 
PROCESSED. 

043 'TO FILENAME' (COLUMNS 19-26) IS NOT SPECIFIED AS ON FILE DESCRIPTION 
SPECIFICATION. ENTRY OF BLANKS IS ASSUMED. 

044 'TO FILENAME* (COLUMNS 19-26) IS NOT SPECIFIED AS AN OUTPUT FILE ON FILE 
DESCRIPTION SPECIFICATION. ENTRY OF BLANKS IS ASSUMED. 

045 TABLE NAME (COLUMNS 27-32 OR 46-51) IS MISSING OR NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 

046 LETTERS 'TAB* ARE MISSING IN TABLE NAME (COLUMNS 27-29 OR 46-48). ENTRY OF 
•TAB* IS ASSUMED. 

047 NUMBER OF TABLE ENTRIES PER RECORD (COLUMNS 33-35) IS MISSING, INVALID OR NOT 
RIGHT-JUSTIFIED. ENTRY OF G08 IS ASSUMED. 

C48 NUMBER OF TABLE ENTRIES PER TABLE (COLUMNS 36-39) IS MISSING, INVALID OR NOT 
RIGHT-JUSTIFIED. ENTRY OF 0150 IS ASSUMED. 

049 'LENGTH OF TABLE' ENTRY (COLUMNS 40-42 OR 52-54) IS MISSING, INVALID, OR NOT 
RIGHT-JUSTIFIED. ENTRY CF 010 IS ASSUMED. 

05C 'PACKEC' (COLUMN 43 OR 55) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

051 'DECIMAL POSITIONS' (COLUMN 44 OR 56) IS INVALID. ENTRY OF ZERO IS ASSUMED. 

C52 RECORD SEQUENCE OF THE CHAINING FILE (COLUMNS 7-8) IS INVALID. BOTH POSITIONS 
MUST BE EITHER NUMERIC CR ALPHABETIC. SPECIFICATION IS NOT PROCESSED. 

053 WARNING - SYMBOLIC DEVICE (COLUMNS 47-52) IS USED BY THE RPG COMPILER. 


054 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE. 

055 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE. 

056 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE. 



NOTE 057 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 058 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 059 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 060 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 061 WARNING - MULTI-FILE PROGRAM (WITH PRIMARY AND SECONDARY FILES) IS SPECIFIED 
WITHOUT MATCHING FIELDS FOR THE PRIMARY FILE. 

NOTE 062 WARNING - MULTI-FILE PROGRAM (WITH PRIMARY AND SECONDARY FILES) IS SPECIFIED 
WITHOUT MATCHING FIELDS FOR THE SECONDARY FILE(S). 

NOTE 063 THE SUM OF THE LENGTHS OF THE MATCHING FIELDS FOR THE PRIMARY FILE OOES NOT 

EQUAL THAT OF EACH SECONDARY FILE. EXECUTION IS DELETED. 

NOTE 064 THE SUM OF THE LENGTHS OF THE MATCHING FIELDS IS NOT CONSTANT IN EACH RECORD 

WHICH SPECIFIED MATCHING FIELDS FOR A FILE. EXECUTION IS DELETED. 

NOTE 065 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 066 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 067 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 068 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 069 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 070 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 071 DETAIL CALCULATION SPECIFICATION FOLLOWS A TOTAL CALCULATION SPECIFICATION. 
DETAIL SPECIFICATION IS NOT PROCESSED. 

NOTE 072 UNDEFINED TABLE SPECIFIED IN LOKUP OPERATION. SPECIFICATION IS NOT PROCESSED. 

NOTE 073 KEYCV IS VALID ONLY WHEN PRECEDED BY RPGCV OR EXTCV. SPECIFICATION IS NOT 
PROCESSED. 

NOTE 074 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 075 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 076 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 077 THERE ARE NO VALID INPUT SPECIFICATIONS IN THIS PROGRAM. EXECUTION IS DELETED. 

NOTE 078 DECIMAL POSITION IS INVALID. ENTRY OF ZERO IS ASSUMED FOR NUMERIC FIELD. ENTRY 

OF BLANK IS ASSUMED FOR ALPHAMERIC FIELD. 

NOTE 079 CONVERSION NAME CANNOT BE USED TO DEFINE A FIELD. SPECIFICATION IS NOT 
PROCESSED. 

NOTE 080 FIELD INDICATOR IS SPECIFIED BUT IS NOT VALID. INDICATOR IS NOT PROCESSED. 

NOTE 081 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 082 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NOTE 083 FIELD LENGTH IS IMPROPERLY SPECIFIED OR IS NOT SPECIFIED. ENTRY OF ZERO IS 

ASSUMED FOR INVALID CHARACTER. WHEN REQUIRED LENGTH IS NOT SPECIFIED, ENTRY OF 
8 IS ASSUMED FOR EXTCV AND RPGCV. ENTRY OF 4 IS ASSUMED FOR ALL OTHER 
OPERATION CODES. 

NGTE 084 NO ERROR MESSAGE ASSIGNEO FOR THIS NOTE. 

NOTE 085 RESULT FIELD LENGTH (COLUMNS 49-51) IS GREATER THAN ALLOWED. A LENGTH OF 256 IS 
ASSUMED FOR AN ALPHAMERIC FIELD. A LENGTH OF 15 IS ASSUMED FOR A NUMERIC 
FIELD. 

NOTE 086 OPERATION CODE (COLUMNS 28-32) IS INVALID OR MISSING. SPECIFICATION IS NOT 
PROCESSED. 
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087 REQUIRED ENTRY IN FACTOR I (COLUMNS 18-27) IS MISSING OR INVALID. SPECIFICATION 
IS NOT PROCESSED. 

088 REQUIRED ENTRY IN FACTOR 2 (COLUMNS 33-42) IS MISSING OR INVALID. SPECIFICATION 
IS NOT PROCESSED. 

089 REQUIRED ENTRY IN RESULT FIELD (COLUMNS 43-48) IS MISSING OR INVALID. 
SPECIFICATION IS NOT PROCESSED. 

090 FORM TYPE (COLUMN 6) IS INVALID. SPECIFICATION IS NOT PROCESSED. 

091 ‘NOT* (COLUMNS 9, 12, OR 15) IS NOT N OR BLANK. ENTRY OF N IS ASSUMED. 

092 CONTROL LEVEL IS IMPROPERLY SPECIFIED. ENTRY OF LO IS ASSUMED. 

093 RESULTING INDICATOR IS INVALID. INDICATOR IS NOT PROCESSED. 

094 INCICATOR LO IS SPECIFIED AS A FIELD INDICATOR, BUT IS NOT ALLOWED. INDICATOR 
IS IGNORED. 

095 FIELD-RECORD RELATION (COLUMNS 63-64) IS INVALID. ENTRY OF 00 IS ASSUMED. 

096 'HALF ADJUST* ENTRY (COLUMN 53) IS INVALID. ENTRY OF H IS ASSUMED. 

C97 FIELD NAME IS IMPROPERLY USED. SPECIFICATION IS NOT PROCESSED. 

C98 INDICATOR (COLUMNS 10-11, 13-14, OR 16-17) IS INVALID. ENTRY OF 00 IS ASSUMED. 

C99 REQUIRED RESULTING INDICATOR (COLUMNS 54-55, 56-57, OR 58-59) IS NOT SPECIFIED. 
SPECIFICATION IS NOT PROCESSED. 

100 * MVR * DOES NOT FOLLOW *DIV', OR FOLLOWS A *DIV* WITH HALF ADJUST SPECIFIED. 

SPECIFICATION IS NOT PROCESSED. 


101 'FROM* (COLUMNS 44-47) OR 'TO* (COLUMNS 48-51) IS ZERO. ENTRY OF 1 IS ASSUMED. 

102 RESULT FIELD OF RPGCV OR EXTCV DOES NOT HAVE LENGTH OF 3 OR 8. ENTRY OF 8 IS 

ASSUMED. 

103 IF IBM SHILLING IS SPECIFIED, STERLING INPUT FIELO MUST HAVE MORF THAN THREE 

NON-DECIMAL POSITIONS. IF BSI SHILLING IS SPECIFIED, STERLING INPUT FIELD MUST 
HAVE MORE THAN TWO NON-DECIMAL POSITIONS. VALUE OF FIELD IS ASSUMED TO BE 
ZERO. 

104 WARNING - INDICATOR 00 SHOULD BE USED ONLY IN OUTPUT SPECIFICATIONS. 

105 FIELDS USED IN AN ALPHAMERIC COMPARE MUST BE EQUAL IN LENGTH OR MUST BE LESS 

THAN OR EQUAL TO 200 BYTES. 

106 FIELD LENGTHS ARE INVALID FOR THIS OPERATION. SPECIFICATION IS NOT PROCESSED. 

107 PLUS AND/OR MINUS RESUUTING INDICATORS (COLUMNS 54-55 OR 56-57) ARE NOT ALLOWED 

FOR TESTING ALPHAMERIC FIELDS. INDICATORS ARE IGNORED. 

108 FIELO TYPE IS INVALID FOR THIS OPERATION. SPECIFICATION IS NOT PROCESSED. 

109 NO ERRCR MESSAGE ASSIGNED FOR THIS NOTE. 

110 FORM TYPE (COLUMN 6) DOES NOT CONTAIN I, C, OR 0, AND COLUMN 7 IS NOT AN 

ASTERISK. SPECIFICATION IS NOT PROCESSED. 

111 UNDEFINED FILENAME. SPECIFICATION IS NOT PROCESSED. 

112 FILENAME HAS BEEN PREVIOUSLY REFERENCED OR DEFINED AS A TABLE OR OUTPUT FILE 

TYPE. SPECIFICATION IS NOT PROCESSED. 

113 * AND * SPECIFICATION (COLUMNS 14-16) IS OUT OF SEQUENCE - I.E., FIRST INPUT 

SPECIFICATION OR FOLLOWING INVALID FILE NAME. SPECIFICATION IS NOT PROCESSED. 

114 THERE ARF NO RECORD IDENTIFICATION CODES (COLUMNS 21-41) IN THE CARD BEFORE AN 

•AND* CARD. SPECIFICATION IS NOT PROCESSED. 



NOTE 115 * OR • SPECIFICATION (COLUMNS 14-15) IS OUT OF SEQUENCE - I.E., FIRST INPUT 

SPECIFICATION / FOLLOWS FIELD NAME / FOLLOWS INVALID 'OR', 'AND', OR FILE NAMF. 

SPECIFICATION IS NOT PROCESSED. 

NOTE 116 RECORD IDENTIFICATION SPECIFICATION FOLLOWS INVALID FILE TYPE SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 

NOTE 117 FIELD NAME CONTAINS EMBEDDED BLANK. SPECIFICATION IS NOT PROCESSED. 

NOTE 118 FILE AND FIELD NAMES ARE BOTH PRESENT ON THE SAME SPECIFICATION. FILENAME IS 
ASSUMED. 

NOTE 119 SEQUENCE (COLUMNS 15-16) IS BLANK. ENTRY OF AA IS ASSUMED. 

NOTE 120 ALPHAMERIC SEQUENCE FOUND AFTER NUMERIC SEQUENCE. NUMERIC SEQUENCE EQUAL TO 
PREVIOUS NUMERIC SEQUENCE IS ASSUMED. 

NOTE 121 DESCENDING NUMERIC SEQUENCE FOUND. NUMERIC SEQUENCE EQUAL TO PREVIOUS NUMERIC 
SEQUENCE IS ASSUMED. 

NOTE 122 NUMBER (COLUMN 17) TS NOT N OR 1, AND NUMERIC SEQUENCE IS FOUND. ENTRY OF N IS 
ASSUMED. 

NOTE 123 OPTION (COLUMN 18) IS NOT 0 OR BLANK. ENTRY OF 0 IS ASSUMED. 

NOTE 124 RESULTING INDICATOR (COLUMNS 19-20) IS BLANK OR INVALID. INDICATOR OF 99 IS 
ASSUMED. 

NOTE 125 STACKER SELECT (COLUMN 42) IS NOT BLANK OR NUMERIC. ENTRY OF BLANK IS ASSUMED. 

NOTE 126 •POSITION’ (COLUMNS 21-24, 28-31, OR 35-38) CONTAINS EMBEDDED BLANK. ENTRY OF 
ZERO IS ASSUMED. 

NOTE 127 'POSITION' (COLUMNS 21-24, 28-31, OR 35-38) CONTAINS NON-NUMERIC CHARACTER. 

ENTRY OF ZERO IS ASSUMED. 

NOTE 128 'NOT* (COLIMNS 25, 32, OR 39) IS NOT BLANK OR N. ENTRY OF N IS ASSUMED. 

NOTE 129 'C/Z/D* (COLUMNS 26, 33, OR 40) IS NOT C, Z, OR D. ENTRY OF C IS ASSUMED. 

NOTE 130 RECORD IDENTIFICATION IS OUT OF SEQUENCE - I.E., FIRST INPUT SPECIFICATION OR 
FOLLOWING AN INVALID 'OR*, 'AND', OR FILE NAME. SPECIFICATION IS NOT 
PROCESSED. 

NGTE 131 FIELD NAME (COLUMNS 53-58) IS NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT 
PROCESSED. 

NOTE 132 FIELD NAME (COLUMNS 53-58) BEGINS WITH A NUMERIC CHARACTER. SPECIFICATION IS 
NOT PROCESSED. 

NOTE 133 'FROM' (COLUMNS 44-47) OR 'TO* (COLUMNS 48-51) IS BLANK. ENTRY OF l IS ASSUMED. 


NOTE 134 'FROM* (COLUMNS 44-47) OR 'TO' (COLUMNS 48-51) CONTAINS EMBEDDED BLANK. ENTRY 
OF ZERO IS‘ASSUMED FOR EACH BLANK. 

NOTE 135 ‘FROM* (COLUMNS 44-47) OR »T0* (COLUMNS 48-51) CONTAINS NON-NUMERIC CHARACTER. 
ENTRY OF ZERO IS ASSUMED. 

NOTE 136 'FROM* (COLUMNS 44-47) SHOULD BE LESS THAN OR EQUAL TO 'TO* (COLUMNS 48-51). 
FIELD LENGTH OF 1 IS ASSUMED. 

NOTE 137 DECIMAL POSITION (COLUMN 52) IS NOT NUMFRIC. ENTRY OF ZERO IS ASSUMED. 


NOTE 138 EITHER AN UNPACKED NUMERIC FIELD IS MORE THAN 15 BYTES LONG, OR A PACKED NUMERIC 
FIELO IS GREATER THAN 8 BYTES LONG. LENGTH OF 15 IS ASSUMED FOR UNPACKED 
NUMERIC FIELD. LENGTH OF 8 IS ASSUMED FOR PACKED NUMERIC FIELD. 

NOTE 139 STERLING FIELO IS INDICATED WITH MORE THAN THREE DECIMAL POSITIONS. THE DECIMAL 
PORTION OF THE FIELD IS TRUNCATED TO THREE POSITIONS. THE 'TO* POSITION OF THE 
FIELD IS ALTERED TO ALLOW FOR THIS TRUNCATION. 

NOTE 140 PACKED INDICATOR (COLUMN 43) IS NEITHER BLANK NOR P. ENTRY OF P IS ASSUMED. 
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NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 

NOTE 


141 CONTROL LEVEL DOES NOT START WITH L IN COLUMN 59 CL IS ASSUMED), OR COLUMN 60 IS 

NOT NUMERTC (1 IS ASSUMED). 

142 MATCHING/CHAINING FIELD (COLUMN 61) IS NOT C OR M CM IS ASSUMED), OR COLUMN 62 

IS NOT NUMERIC (1 IS ASSUMED). 

143 MATCHING VALUE (COLUMN 62) IS INVALID. ENTRY OF 3 IS ASSUMED IF COLUMN IS 

NUMERIC. ENTRY OF 1 IS ASSUMED IF COLUMN IS NON-NUMERIC. 

144 ALPHAMERIC FIELD LENGTH IS GREATER THAN 256. LENGTH OF 256 IS ASSUMED. 

145 NUMERIC RESULTING INDICATCR (COLUMNS 65-66 OR 67-68) IS SPECIFIED FOR AN 

ALPHAMERIC FIELD. INDICATOR IS SET OFF. 

146 IMPROPER ENTRY FOR STERLING COLUMNS. 'FROM' OP 'TO* FIELD LOCATION ASSUMED. 

147 STERLING SPECIFIED IN COLUMNS 71-74, BUT NOT SPECIFIED ON PROCESSOR CONTROL 

CARD. ENTRY OF BLANKS IS ASSUMED. 

148 THE CALCULATED LENGTH OF THF STERLING FIELO IS GREATER THAN 15. LENGTH OF 15 IS 

ASSUMED. 


149 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

150 

NO 

ERROR 

MFSSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

151 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 
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152 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

153 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

154 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

155 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

156 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

157 

NC 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 

158 

NO 

ERROR 

MESSAGE 

ASSIGNED 

FOR 

THIS 

NOTE 


159 INAPPROPRIATE OUTPUT FIELD. SPECIFICATION IS NOT PROCESSED. 

160 FILENAME (COLUMNS 7-14) IS MISSING, CR RECORD TYPE (COLUMN 15) IS IN WRONG 

ORDER. SPECIFICATION IS NOT PROCESSED. 

161 CORRESPONDING FILENAME (COLUMNS 7-14) CANNOT BE DETERMINED. SPECIFICATION IS 

NOT PROCESSED. 

162 ‘STACKER SELECT* (COLUMN 16) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

163 'SPACE BEFORE* (COLUMN 17) IS INVALID. ENTRY OF 1 IS ASSUMED. 

164 ‘SPACE AFTER* (COLUMN 18) IS INVALID. ENTRY OF 1 IS ASSUMED. 

165 'SKIP BEFORE' (COLUMNS 19-20 IS INVALID. ENTRY OF 01 IS ASSUMED. 

166 'SKIP AFTER* (COLUMNS 21-22) IS INVALID. ENTRY OF 01 IS ASSUMED. 

167 RECORD TYPE (COLUMN 15) IS NOT H, D, OR T. SPECIFICATION IS NOT PROCESSED. 

168 COLUMNS 17-22 MUST BE BLANK FOR 'AND' TYPE SPECIFICATIONS. ENTRY OF BLANK IS 

ASSUMED. 

169 COLUMNS 7-13 MUST BE BLANK FOR 'AND' OR *0R* TYPE SPECIFICATIONS. ENTRY OF 

8LANK IS ASSUMED. 

170 CORRESPONDING RECORD SPECIFICATION IS MISSING OR INVALID. SPECIFICATION IS NOT 

PROCESSED. 

171 'ZERO SUPPRESS* (COLUMN 38} IS INVALID. ENTRY OF BLANK IS ASSUMED. 
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NOTE 

172 

NOTE 

173 

NOTE 

174 

NOTE 

175 

NOTE 

176 

NOTE 

177 

NOTE 

17 8 

NOTE 

17<3 

NOTE 

18C 

NOTE 

181 

NOTE 

182 

NOTE 

183 

NOTE 

184 

NOTE 

185 

NOTE 

186 

NOTE 

187 

NOTE 

188 

NOTE 

189 

NOTE 

19C 

NOTE 

191 

NOTE 

192 

NOTE 

193 

NOTE 

194 

NOTE 

195 

NOTE 

196 

NOTE 

197 

NOTE 

198 


•PACKED FIELD* (COLUMN 44) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

FIELD NAME (COLUMNS 32-37) IS NOT LEFT-JUSTIFI ED. SPECIFICATION IS NOT 
PROCESSED. 

•END POSITION* (COLUMNS 40-43) IS INVALID OR MISSING. SPECIFICATION IS NOT 
PROCESSED. 

LEADING OR CLOSING APOSTROPHE (•) IN EDIT WORD IS NOT CORRECT. ENTRY OF BLANKS 
IN COLUMNS 45-70 IS ASSUMED. 

•BLANK AFTER* (COLUMN 39) IS INVALID. ENTRY OF BLANK IS ASSUMED. 

PUNCH AND PRINT FUNCTIONS ARE SPECIFIED FOR THE SAME FILE. ENTRY OF BLANKS IS 
ASSUMED FOR COLUMNS 17-22. 

ZERO SUPPRESSION (COLUMN 38) MAY NOT EE SPECIFIED FOR CONSTANTS OR EDIT WORDS. 
ENTRY OF BLANK IN COLUMN 38 IS ASSUMED. 

FIELD NAME (COLUMNS 32-37) IS UNDEFINED. SPECIFICATION IS NOT PROCESSED. 

WARNING - 'BLANK AFTER* (COLUMN 39) IS SPECIFIED FOR CONSTANT. ALL IDENTICAL 
CONSTANTS WILL EE BLANKED. 

CONSTANT (COLUMNS 45-70) IS NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED 


EDIT WORD (COLUMNS 45-70 IS NOT LEFT-JUSTIFIED. ENTRY OF BLANKS IN COLUMNS 
45-70 IS ASSUMED. 

•PACKED FIELD* (COLUMN 44) MAY NOT BE SPECIFIED WITH CONSTANT, EDIT WORD OR 
STERLING ENTRY. ENTRY OF BLANK IN COLUMN 44 IS ASSUMED. 

FILENAME (COLUMNS 7-14) IS NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 

FILENAME (COLUMNS 7-14) CONTAINS NON-ALPHABETIC CHARACTER IN FIRST POSITION. 
SPECIFICATION IS NOT PROCESSED. 

EDIT WORD (COLUMNS 45-70) CONTAINS NO DIGIT POSITIONS OR MORE THAN FIFTEEN 
(SIXTEEN FOR STERLING). ENTRY OF BLANKS IN COLUMNS 45-70 IS ASSUMED. 

LEAOING OR CLOSING APOSTROPHE (•) IN CONSTANT IS NOT CORRECT. SPECIFICATION IS 
NOT PROCESSED. 

•AND* OP * OR* FOLLOWING A FIELD NAME SPECIFICATION OR AS FIRST OUTPUT 
SPECIFICATION IS INVALIO. SPECIFICATION IS NOT PROCESSED. 

FIELD NAME (COLUMNS 32-38) CONTAINS NON-ALPHABETIC CHARACTER IN FIRST POSITION. 
SPECIFICATION IS NOT PROCESSED. 

STERLING ENTRY (COLUMNS 71-74) MAY NOT BE SPECIFIED WITH CONSTANT OR PAGEIN). 
ENTRY OF BLANK IN COLUMNS 71-74 IS ASSUMED. 

STERLING ENTRY (COLUMNS 71-74) IS INVALID. ENTRY OF BLANKS IS ASSUMED. 

OUTPUT INDICATOR (COLUMNS 24-25, 27-28, OR 30-31) IS INVALID OR UNDEFINED. 

ENTRY OF LO IS ASSUMED. 

OUTPUT INDICATORS SHOULD START IN COLUMNS 23-25, THEN 26-28, AND FINALLY 29-31. 
ENTRY IS SHIFTED LEFT. 

•NOT* (COLUMNS 23, 26, OR 29) IS NOT BLANK OR N. ENTRY OF N IS ASSUMED. 

WARNING - OVERFLOW INDICATOR IS SPECIFIED IN 'AND* TYPE SPECIFICATION. RECORD 
WILL NOT 8E PUT OUT AS OVERFLOW LINE. 

DECIMAL POSITIONS MUST BE ZERO FOR PAGEIN) FIELD. ENTRY OF ZERO IS ASSUMED. 

SPECIFICATION TYPE CANNOT EE DETERMINED. RECORD AND FIELD DEFINITIONS ARE 
SPECIFIED IN SAME LINE OR BOTH ARE BLANK. SPECIFICATION IS NOT PROCESSED. 

FORM TYPE (COLUMN 6) IS INVALID (NOT 0). SPECIFICATION IS NOT PROCESSED. 
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210 
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211 
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214 
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215 
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216 
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220 

NOTE 
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NOTE 
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228 


NO OUTPUT INDICATOR (COLUMNS 24-25, 27-28, CR 30-31) IS SPECIFIED FOR *AND* OR 
•OR* TYPE SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

FORM TYPE (COLUMN 6) IS INVALID OR OUT OF SEQUENCE. SPECIFICATION IS NOT 
PROCESSED. 

FILE DESCRIPTION SPECIFICATIONS ARE MISSING. EXECUTION IS DELETED. 

WARNING - LINE COUNTER SPECIFICATION IS MISSING. 

WARNING - PRIMARY FILE IS NOT SPECIFIED. 

WARNING - FILE EXTENSION SPECIFICATION IS MISSING. 

FILENAME tCCLUMNS 7-14) IS MULTI-CEFINED. SPECIFICATION IS NOT PROCESSED. 

NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NO ERRCR MESSAGE ASSIGNED FOR THIS NOTE. 

NC ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

WARNING - FILENAME (COLUMNS 7-14) IS DEFINED BUT NEVER USED. 

FILENAME FAS BEEN REFERENCED PREVIOUSLY IN INPUT SPECIFICATIONS. SPECIFICATION 
IS NOT PROCESSED. 

RESULTING INDICATOR IS INVALID OR UNDEFINED. ENTRY OF LO IS ASSUMED. 

WARNING - RESULTING INDICATOR IS UNREFERENCED. 

FIELD NAME IS UNDEFINED. FIELD IS PROCESSED WITH ASSUMED LENGTH OF 004. 

WARNING ~ FIELD NAME IS MULTI-CEFINED. 

WARNING - FIELD NAME IS UNREFERENCED. 

THE COMBINED LENGTHS OF LITERALS AND FIELD NAMES EXCEEDS ALLOCATED CORE STORAGE 
EXECUTION IS DELETED. 

NG ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

FILE SPECIFIED ON OUTPUT FORMAT SPECIFICATIONS IS UNDEFINED CR NOT AN OUTPUT 
FILE <U, C, OR C). ENTIRE FILE IS DELETED FROM PROCESSING. 

WARNING - FILENAME (COLUMNS 7-14) IS NOT REFERENCED ON OUTPUT SPECIFICATIONS. 

NO VALID OUTPUT SPECIFICATIONS ARE PRESENT. EXECUTION IS DELETED. 

ALL OUTPUT LINES OF A PRINTER FILE MUST INDICATE SPACING AND/OR SKIPPING. 

SINGLE SPACING IS ASSUMFO FOR ALL OUTPUT LINES OF NAMED FILE WHICH HAVE NO 
PRINT FUNCTION. 

STACKER SELECT MAY NOT BE SPECIFIED WITH PRINT FILE. STACKER SELECT IS IGNOREO 
AND SINGLE SPACING' IS ASSUMED FOR ALL LINES OF NAilED FILE. 

PRINT OR PUNCH FUNCTION MAY NOT BE SPECIFIED FOR AN OUTPUT RECORD OF TAPE OR 
DISK FILE. STACKER SELECT, SPACING, OR SKIPPING IS IGNORED ON ALL RECORDS OF 
NAMED FILE. 

PRINT FUNCTION MAY NOT BE SPECIFIED FOR OUTPUT RECORD OF PUNCH FILE. SPACE AND 
SKIP ENTRIES ARE IGNORED FOR ALL RECORDS OF NAMED FILE. 

IMPROPER USE OF PACKING OR ZERO SUPPRESSION ON ALPHAMERIC OR PACKED FIELD. 

ENTRY OF BLANK IS ASSUMED FOR INVALID CODE. 

END POSITION SPECIFIED FOR THE FIELD IS GREATER THAN THE RECORD LENGTH. ALL OR 
PART OF THE FIELD ‘iS LOST, STARTING FROM RIGHTMOST POSITION. 
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229 END POSITION IS LESS THAN THE FIELD LENGTH. FIELD IS NOT PROCESSED. 

230 FIELD TO BE EDITED IS GREATER THAN THE EDIT WORD. RIGHTMOST DIGITS WILL BE 

LOST. 

231 FIELD TO BE EDITED IS NOT NUMERIC. NO EDITING IS PERFORMED. 

232 STERLING IS SPECIFIED FOR ALPHAMERIC FIELD. STERLING IS IGNORED. 

233 STERLING SIGN POSITION IS SPECIFIED AS OTHER THAN NORMAL FOR PRINTED LINE. 

NORMAL POSITION IS ASSUMED. 

234 LOCATION FOR STFRLING SIGN EXCEEDS RECORD LENGTH. NORMAL POSITION FOR SIGN IS 

ASSUMED. 

235 STERLING FIELD IS SPECIFIED WITH DECIMAL LENGTH GREATER THAN THREE. FIELD IS 

NOT PROCESSED. 

236 STERLING FIELDS MAY 8E EDITED ONLY FOR PRINT FILES. NO EDITING IS PERFORMED 

237 NUMBER OF LINES OF OUTPUT EXCEEDS THE CAPACITY OF RPG. MAXIMUM NUMBER IS 1023.1 

EXFCUTION IS DELETED. 

238 STERLING FIELD IS SPECIFIED WITH MORE THAN NINE POUNDS POSITIONS. LEFTMOST 

DIGITS WILL BE LOST. 

235 NC ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

240 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

241 FILENAME IS NCT SPECIFIED AS ON FILE DESCRIPTION SPECIFICATION. SPECIFICATION 

IS NOT PROCESSED. 

2*t2 CHANNEL 1 OR 12 IS MISSING OR INVALID. SPECIFICATION IS NOT PROCESSED. 

243 FILENAME IS NOT SPECIFIED AS AN OUTPUT FILE OR AN OUTPUT FILE REQUIRING A LINE 

COUNTER SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 

244 LINE NUMBER OR CHANNEL NUMBER IS INVALID OR MISSING. SPECIFICATION IS NOT 

PROCESSED. 

245 CHANNEL NUMBER IS MULTI-DEF INFO. SPECIFICATION IS NOT PROCESSED. 

246 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

247 NC ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

248 COLLATING SEQUENCE (COLUMN 26 OF RPG CONTROL CARC) IS INVALID. ALTERNATE 

SEQUENCE IS ASSUMED. 

249 NO ERROR MESSAGE ASSIGNED FOR THIS NOTE. 

250 ENC OF FILE HAS BEEN ENCOUNTERED IN INPUT STREAM PRIOR TO AN OUTPUT 

SPECIFICATION. EXECUTION IS DELETED. 

251 THE WORK FILE ASSIGNMENTS ARE INVALID (I.F. NCT TAPE OR DISK), OR INSUFFICIENT 

CORE IS AVAILABLE TO SUPPORT MIXED WORK FILES (I.F. BOTH TAPE AND DISK). 

COMPILATION IS BYPASSED. 

252 STERLING INPUT SPECIFICATION IS INVALID. IBM FORMAT IS ASSUMED. 

253 STERLING OUTPUT SPECIFICATION IS INVALID. IBM FORMAT IS ASSUMED* 

254 INVERTED PRINT ENTRY IS INVALID. ENTRY CF I IS ASSUMED. 

255 RPG CONTROL CARD IS MISSING. COMP ILAT IC N IS BYPASSED. 



APPENDIX G: 


CONDITIONS THAT AUTOMATICALLY TURN ON HALT INDICATOR HO 


The object program: 

• Read an input record that was not defined on the Input Specifications sheet (columns 2T-41). 

• Found an input record out of the predetermined sequence of card type specified by the entry in Sequence (columns 15-16) on the Input Specifica¬ 
tions sheet. 

• Found an input record out of sequence when the entry in Matching Fields (columns 61-62) on the Input Specifications sheet was used for sequence 
checking a single input file. 

• Encountered a chaining field in the chaining file that does not appear in the chained file during random processing of multiple input files. 

• Did not find a record with the correct key at the designated track address during random processing by record key of a directly organized file. 

• Did not find the record key that designates the lower limit (obtained from the RAF) during sequential processing between limits of an indexed- 
sequential file. 

• Encountered an end-of-file before the second limit was reached during sequential processing between limits of an indexed-sequential file. 

• Found a wrong length record during processing of an indexed-sequential file. 

• Found an invalid length record (zero or too long) during random processing by record identification of a file on a DASD. 

• Found a difference between the key length of a DASD record in an indexed-sequential file and the length as specified in Length of Record 
Address Field (columns 29-30) on the File Description Specifications sheet during processing with RAF support (random, ADDROUT, or between 
I i mi ts). 

• Found a difference between the key length in the chained indexed-sequentiai file and the length as specified (columns 44-51) on the Input 
Specifications sheet during chaining of multiple input files. 

• Encountered a data check on the DASD during random processing of a directly organized file. 

• Encountered a DASD error during sequential or random processing of an indexed-sequential file. 


NOTE: Unless the HO indicator is turned off by a SETOF Operation entry on the Calculation Specifications sheet (see Turning Indicators On or Off) 
the program terminates before the next input record is read. 


/ 
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INDEX 


Absolute compare routine (Figure 69), 63 

Add, operation, 58 

Addition and Subtraction, 5 

Address Output File (ADDROUT), 122 

Alphabetic characters in RPG, 36 

Alphameric field length, 42,63,67 

Alphameric literals, output, 82 

Alternate collating sequence, 50,135 

Alternating arguments and functions, 99,105 

Ampersand, &, 39 

Ampersand, edit word, 84 

AND relationship, 40,76 

Apostrophe symbol, 57 

Argument, 101 

Arithmetic Operations, 58 

Asterisk protection, 84 

At sign, d>, 36 

Automatic skipping, 75,86 

BLANK AFTER, 11,78,165 

Blank after, effect of, 52,69 

BLOCK LENGTH, 90,159 

Blocking records, 113 

Branching and Exit operations, 65 

Branching or Go To, 65 

BSI format, 135,157 

C/Z/D, 4,39,162 

Calculations Specifications sheet, 54 

Calculations, when performed, 54 

Chaining, 128 

CHAINING FIELDS, 50,163 

Chaining fields, split, 130 

CHANNEL NUMBER (1) (Line Counter), 86,162 

CHARACTER, 4,39,162 

Checking sequence, 23 

Checking sequence of input files, 50,89 

Combined file, 88 

COMMENTS, 70,99,159 

Comments, *column 7, 34 

COMPARE - EQUAL, 69,164 

COMPARE - HIGH, 69,164 

COMPARE - LOW, 69,164 

Compare operations, 62 

Comparison of two fields, 20 

Compatibility, 1 

CONTD, 119, 120 

Control card, 135,156 

Control fields, 7 

CONTROL LEVEL - Calculation, 54,163 
CONTROL LEVEL - Input, 8,47,163 
Control-field holding area, 47 
CONSTANT OR EDIT WORD, 82,165 
Constants, 82 

Conversion of chaining fields, 131 
Conversion Operation codes, 119 
Conversion routine, RAF, 119 
Conversion Routine Operation codes, 158 
Conversion Routines Operations, 66 
CR symbol, edit word, 84 
Creating table records, 102 
Cross-References 

Appendix G, 174,1 
Chaining, 128 

Creating record address files, 123 
Disk storage concepts, 112 


Exit to a subroutine, 107 
Field location, 42 
Halt indicators, 52,175 

Matching fields, 50 

Output-Format Specifications sheet, 73 
Problem definition 28 
Processing multiple input files, 124 
Processing single input files, 116 

RPG Specification sheets, 31 
Sample program one, 142 
Turning indications On or Off, 65 
Using exit routines in object program, 
101 

Using tables in the object program, 101 
Using the matching fields specification 
for sequence checking, 50 
Using the calculation sheet, 71 
Variable-length records, 112 

Data files, 112 

Data files and tables, 138 

Deck arrangement, 135 

Decimal symbol location, 5 

DECIMAL POSITIONS -Calculation, 6,67,164 

DECIMAL POSITIONS-File Extension, 99,161 

DECIMAL POSITIONS -Input, 44,163 

Defining indicators, 52,69 

Defining the problem, 28 

Describing a record, 3 

Detail printing, 6 

Detail records, 74 

Detail time, 27 

Detail and total printing, 10 

DEVICE, 93,160 

Digit record identification, 39 
Direct access non sequential 
disk file, 139 

Direct access sequential disk file, 138,1 

Direct organization, 113,115 

Direct organization, processing, 118 

Disk storage concepts, 112 

Divide, operation, 58 

Division, 21 

Dollar sign, $, 36,84 

Edit words, 84 

Embedded blanks, definition of, 36 
END OF FILE, 89,159 

END POSITION IN OUTPUT RECORD, 6,80,165 

End of RPG conversion, 67 

ERPGC, 67 

Executing RPG, 136 

EXTCV, 67 

EXTENSION CODE, 93,160 
Extent area, 112 
EXTENT EXIT FOR DAM, 96,160 
External conversion routine, 67,119 
Exit to external translate subroutine, 
50,135 

Exit operations, 65 

Exit to a user's subroutine, 107,109 

FACTOR 1, 56,163 
FACTOR 2, 56,164 

Field description, input, 35,41 
Field description, output, 78 
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Field indicators, 19 

FIELD INDICATORS, 51,163 

FIELD LENGTH, 5,67,164 

Field length, maximum, 42 

FIELD LOCATION, 4,42,163 

FIELD NAME-Input, 8,46,163 

FIELD NAME-Output, 6,78,165 

FIELD-RECORD RELATION, 51,163 

Field-Record relation, 44,47,51 

Field status conditions, 51 

File Description Specifications Sheet, 88 

FILE DESIGNATION, 89,159 

File Extension Specifications Sheet, 97 

FILE FORMAT, 90,159 

File identification and control, output, 

73 

File organization, 112,113 
File processing, 112,114,115 
File Processing, summary, 133 
FILE TYPE, 88,159 

FILENAME - File Description, 88,159 
FILENAME - Input, 36,162 
FILENAME - Line Counter, 86,162 
FILENAME - Output, 14,73,165 
Files, maximum number of, 88 
Fixed dollar sign, 84 
Fixed-length records, 112 

Floating dollar sign, 84 

Flow charts, logic, 153 
FORM TYPE, 33,159 
Forming tables, rules for, 101 
From: Field Location, 42,163 

FROM FILENAME, 98,161 
Function, table operations, 101 
Function of RPG, 1 

Fundamentals of RPG programming, 3 


GOTO, 65 

Group indication, 12 
Group printing, 11 

HALF ADJUST, 22,68,164 
Halt indicators, 52 
Heading records, 74 
HO indicator, 36,52 

IBM format, 135,157 
ID field, 119 

Inaexed-sequential organization, 113,115 

Indexed-sequential files, 116 

Indicator chart, 152 

INDICATORS, 5,55,163 

Indicators, exit routine, 109 

Input file, 88 

Input record sequence, 35 

Input Specifications sheet, 35 

Input stream, 136 

Inverted print, 135 

Job setup, 135 

Justifying field entries, 32 

KEYCV, 67 
Key field, 119 

KEY FIELD STARTING LOCATION, 93,160 

Label for GOTO, 65 
Label options in RPG, 95 
Labeled DASD tile, 138.1 


Labeled magnetic tape file, 

LABELS, 90,160 
Last record indicator, 55 
Left-justification, 32 
LENGTH OF RECORD ADDRESS FIELD, 92,160 
LENGTH OF TABLE ENTRY, 99,161 
Level Zero indicator, 55 
Line Counter Specifications sheet, 86 
LINE NUMBER, 33,159 

LINE NUMBER (1) (Line Counter), 86,162 

Linkage Field, table, 109 

Literal, 57 

L0 indicator, 55 

Logic flow charts, 153 

Logic, program, 27 

Logical file, 112 

LOKUP, 66 

LR indicator, 11,55 

Ml, M2, M3, 50 

Machine features required, 2 
MATCHING FIELDS or CHAINING FIELDS, 50,163 
Matching Record indicator, 56,126 
Matching-field holding area, 50 
MINUS-Calculations, 69,164 

MINUS-Input, 51,163 

Minus zone, 39 
Minus symbol, edit word, 84 
Minus test, 17 
Move Operations, 59 
Move, 60 
High-to-High, 62 
High-to-Low, 60 
Low-to-High, 60 
Low-to-Low, 62 
MODE OF PROCESSING, 92,160 
Move remainder, operation, 59 
MR indicator, 56,126 
Multiple input files, 116,124 
Multiple printers, 75 
Multiplication and Division, 21 
Multiply, Operation, 58 

NAME OF LABEL EXIT, 95,160 
NOT, 4,39,162 
NUMBER, 24,37,162 

NUMBER OF THE CHAINING FIELD, 97,161 

Number of files allowed, 88 
NUMBER OF TABLE ENTRIES PER RECORD, 99, 
161 

NUMBER OF TABLE ENTRIES PER TABLE, 99,161 

Numbering pages, 80,82 

Numeric field, maximum length, 42,67 


Object deck sequence, 136 
Object program cancellation, 140 
Omitting record identification, 41 
OPERATION, 57,164 
OPTION, 24,38,162 
OR relationship, 40,43,76 
Output Deck, 139 

Output file, 88 

Output-format specifications, 73 
OUTPUT INDICATORS, 6,76,78,165 
Output Listing, 140 
Output units, specifying, 73 
OVERFLOW INDICATOR, 92,160 ' 

Overflow indicator, 75 

Overflow printing, 12 
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Overflow, printing lines conditioned by, 75 

PACKED - File Extension, 99,161 

PACKED - Input, 42,162 

PACKED FIELD - Output, 80,165 

Packed Format, Exit subroutine, 109 

PAGE NUMBER, 32,159 

Page numbering, 80,82 

Pence-format fields, 157 

Physical unit, 112 

PLUS-Calculations, 69,164 

PLUS-Input, 51,163 

Plus test, 17 

POSITION, 4,39,162 

Pound sign, #, 36 

Pound sterling formats, 156 

Printer spacing chart, 28 

Printing lines conditioned by overflow, 75 
Problem definition, 28 

Processing multiple input files.. 116,124 

Processor Control card, 135 

PROGRAM IDENTIFICATION, 34,159 

Program identification, 135 

Program logic, 27 

Providing a label for GOTO, 65 

Random processing, 114 

Random processing, indexed-sequential file, 
117 

RECORD ADDRESS FILE (RAF), 97,123 
RECORD ADDRESS TYPE, 92,160 
Record, definition of, 112 
Record formats, 90 

RECORD IDENTIFICATION CODES, 4,39,162 
Record identification, 35,36 
Record identification, omitting, 41 
Record key, 67 
RECORD LENGTH, 92,159 

RECORD SEQUENCE OF THE CHAINING FILE, 97, 
161 

Records in an OR-relationship, 43 
Registers, use of, 108 

Required features, 2 

RESULT FIELD, 5,67,164 

RESULTING INDICATORS-Calculation, 19,68, 
164 

RESULTING INDICATOR - Input, 4,38,162 

Retrieving updated tables, 105 

Right-justification, 32 

RLABL, 65,108 

RPG conversion, 66 

.RPG Deck Arrangement, 135 

RPG label, 65 

RPG specification sheets, 31 
Rules for DASD specifications, 92 

Sample programs 

1, 142 

2, 148 

3, 152 

Search argument, table operations, 101 
Sequence checking, 23 
Sequence checking of input files, 89 
Sequence checking, matching field, 50 
SEQUENCE - File Description, 89,159 
SEQUENCE - File Extension, 99,161 
SEQUENCE - Input, 24,36,162 
Sequence of input records, 35 


Sequential organization, 113,115 
Sequential processing, 114 

Sequential processing, multiple input files, 
124 

Set indicators 
off, 66 
on, 65 
SETOF, 66 
SETON, 65 
SKIP-AFTER, 75,165 
SKIP-BEFORE, 12,75,165 
Skipping, automatic, 75,86 
Source deck arrangement, 135 
SPACE-AFTER, 6,75,165 
SPACE-BEFORE, 74,165 
Spacing chart, printer, 28 

Special holding area (table operations), 66 

Specifying the kind of calculation, 56 

Specifying output units, 73 

Split chaining fields, 130 

Split control field, 47 

STACKER SELECT - Input, 4,41,162 

STACKER SELECT - Output, 74,165 

Standard I/O Assignment, 140 

Sterling routines, 32,156 

STERLING SIGN POSITION - Input, 53,163 

STERLING SIGN POSITION - Output, 85,165 

Subtract, operation, 58 

Subtraction, 5 

Summary of file processing, 133 

Summary punching, 13 

Summary of RPG specifications, 159 

Supported features, 2 

SYMBOLIC DEVICE, 93,160 

Symbolic I/O Device Assignment, 141 

Table linkage field, 109 

Table lookup, 66 

TABLE NAME, 98,161 

TABLE NAME (Alternating table), 99,161 

Tables, exit routine, 109 

Tables and data files, 138 

TAG, 65 

Test Zone, 64 

Testing or Compare operations, 62 

Testing the results of calculations, 68 

Testing for zero, plus, and minus, 17 

To, field location, 42,163 

To,FILENAME, 98,161 

Total calculations, 9 

Total printing, 10 

Total records, 74 

Total time, 27 

Translate subroutine, 50,135 

Turning indicators ON or OFF, 65 

TYPE OF FILE ORGANIZATION, 92,160 

TYPE H/D/T, 6,74,165 

ULABL, 65,108 
Unpacked format, 42 
Update file, 88 

Updated tables, retrieving, 105 
Updating a DASD file, 134 
Use of field indicators, 52 
Use of registers, 108 
User's label, 65 
Using RPG, 1 

Using tables in the object program, 101 
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Using Exit routines in the object program 
101 

Using indicators, 52,69 
Using resulting indicators, 19 
Using the calculations specifications 
sheet, 71 


Variable -length records, 41,112 


Zero and Add, operation, 58 
Zero and Subtract, operation, 58 

ZERO OR BLANK - Calculations, 69,164 

ZERO OR BLANK - Input, 17,51,163 
ZERO SUPPRESS, 6,78,165 
Zero Suppression, edit word, 84 
Zone, definition of, 39 
Zone record identification, 39 
Zero testing, 17 
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